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;
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;