一站直销 > delphi中两个DBComboBox关联显示问题，ADO＋SQL SERVER

delphi中两个DBComboBox关联显示问题，ADO＋SQL SERVER

2025-04-12 21:51:19

推荐回答（1个）

回答1：

DBComboBox1OnChange(Sender:TObject);
begin
if Trim(DBComboBox1.Text)<>'' then
begin
DBComboBox2.Items.Clear;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.ADD('select 城市名称 from CityTable Where 省份='''+Trim(DBComboBox1.Text)+'''');
ADOQuery2.Open;
While not ADOQuery2.EOF DO
begin
DBComboBox2.Items.Add(ADOQuery2.FieldByName('城市名称').asstring);
end;
end;
end;

//每次点DBComboBox1,都必须清除DBComboBox2的内容，重新刷新的