先在Query上面执行这条语句 然后一条一条把数据取出来放入ComboBox while not Query1.Eof do begin ComboBox1.Items.Add(Query1.IndexFields[0].AsString); Query1.Next; end;
//以下代码添加到Tcombobox1中 with datamodule1.adoquery1 do begin close; sql.clear; sql.add('select name from pait.xdsl group by name'); open; end; while not datamodule1.adoquery1.eof do begin combobox1.Items.Add(datamodule1.adoquery1.fieldbyname('name').Value); datamodule1.adoquery1.Next; end;
在while循环之前,加一个 Query1.first;
with qry do begin close; Sql.Clear; Sql.Add('select name from pait.xdsl group by name'); open; First; While not eof do begin combobox1.items.add(FieldByName('Name').asString); Next; end; end;
Query1.first; while not Query1.Eof do begin ComboBox1.Items.Add(Query1.IndexFields[0].AsString); Query1.Next; end;
然后一条一条把数据取出来放入ComboBox
while not Query1.Eof do
begin
ComboBox1.Items.Add(Query1.IndexFields[0].AsString);
Query1.Next;
end;
//以下代码添加到Tcombobox1中 with datamodule1.adoquery1 do
begin
close;
sql.clear;
sql.add('select name from pait.xdsl group by name');
open;
end;
while not datamodule1.adoquery1.eof do
begin
combobox1.Items.Add(datamodule1.adoquery1.fieldbyname('name').Value);
datamodule1.adoquery1.Next;
end;
begin
close;
Sql.Clear;
Sql.Add('select name from pait.xdsl group by name');
open;
First;
While not eof do
begin
combobox1.items.add(FieldByName('Name').asString);
Next;
end;
end;
while not Query1.Eof do
begin
ComboBox1.Items.Add(Query1.IndexFields[0].AsString);
Query1.Next;
end;