while not Query.Eof do begin if (Pos((Query.Fields[0].AsString),(ComboBox.Items.CommaText))=0) then begin ComboBox.Items.Add(Query.Fields[0].AsString); Query.Next; end else Query.Next; end;
select 字段 from 表 group by 字段
顶多再加上以下判断 sItemStr := trim(Query.Fields[0].AsString) ; if ComboBox.Items.IndexOf(sItemStr) < 0 then begin ComboBox.Items.Add(sItemStr) ; end ;
with query do begin Close; SQL.Clear; SQL.Add('select distinct '字段' from Table'); Open; end; if not query.IsEmpty then begin query.First; ComboBox.Items.Clear; while not query.Eof do begin ComboBox.Items.Add(query.FieldByName('字段').AsString); query.Next; end; end;
begin
if (Pos((Query.Fields[0].AsString),(ComboBox.Items.CommaText))=0) then
begin
ComboBox.Items.Add(Query.Fields[0].AsString);
Query.Next;
end
else
Query.Next;
end;
sItemStr := trim(Query.Fields[0].AsString) ;
if ComboBox.Items.IndexOf(sItemStr) < 0 then
begin
ComboBox.Items.Add(sItemStr) ;
end ;
begin
Close;
SQL.Clear;
SQL.Add('select distinct '字段' from Table');
Open;
end;
if not query.IsEmpty then
begin
query.First;
ComboBox.Items.Clear;
while not query.Eof do
begin
ComboBox.Items.Add(query.FieldByName('字段').AsString);
query.Next;
end;
end;