1 只要从COMBOBOX派生的都可以 2 with query do while not EOF do begin combo1.items.add(fields[0].asstring); next; end;
用Combobox就可以了 Procedure Form1.Formshow(Sender:TObject); begin AdoDataSet.First; //AdoDataSet 连到你想要查看数据的表中 while not AdoDataSet.Eof do begin Combobox.Item.add(AdoDataSet.FieldByName('字段名').AsString); AdoDataSet.Next; end; end;
另外有个第三方控件wwdbcombobox。它的功能可能会更好一些。搜ip3000就可以找到的。
哈哈,试试吧。会有很多意想不到的收获
2
with query do
while not EOF do
begin
combo1.items.add(fields[0].asstring);
next;
end;
Procedure Form1.Formshow(Sender:TObject);
begin
AdoDataSet.First; //AdoDataSet 连到你想要查看数据的表中
while not AdoDataSet.Eof do
begin
Combobox.Item.add(AdoDataSet.FieldByName('字段名').AsString);
AdoDataSet.Next;
end;
end;