var i: interger; adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add('select 字段 from 表名 where 条件'); adoquery2.Open; for i:=0 to adoquery2.RecordCount-1 do begin userdata.ComboBox3.Items.Add(adoquery2.Fields[0].asstring); adoquery2.Next; end;
With ADOQuery do begin Close; SQL.Clear; SQL.Add('Select Distinct FieldName FROM TableName');//Distinct 不要重复 First; while Not Eof do begin ListBox1.Items.Add(FieldByName('FieldName').AsString); Next; end; end;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select 字段 from 表名 where 条件');
adoquery2.Open;
for i:=0 to adoquery2.RecordCount-1 do begin
userdata.ComboBox3.Items.Add(adoquery2.Fields[0].asstring);
adoquery2.Next; end;
With ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('Select Distinct FieldName FROM TableName');//Distinct 不要重复
First;
while Not Eof do
begin
ListBox1.Items.Add(FieldByName('FieldName').AsString);
Next;
end;
end;
DBComboBox只是可以绑定字段,当你在移动数据源的记录时,DBComboBox里的Text也随之而变
是窗体创建时候,还是你自己点Button