combobox1.clear; while not adoquery1.eof do begin Combobox1.items.add(adoquery1.fieldbyname('field').asstring); adoquery1.next; end;
ComboBox1.Clear; for i := 0 to ADOQuery1.RecordCount - 1 do begin Combobox1.Items.Append(ComboBox1.FieldByname('sName').AsString); ADOQuery1.Next; end; 同楼上一样,换个方式实现
while not adoquery1.eof do
begin
Combobox1.items.add(adoquery1.fieldbyname('field').asstring);
adoquery1.next;
end;
for i := 0 to ADOQuery1.RecordCount - 1 do
begin
Combobox1.Items.Append(ComboBox1.FieldByname('sName').AsString);
ADOQuery1.Next;
end;
同楼上一样,换个方式实现
如:datecl数据库
aa表
bb表
cc表
dd表
谢谢各位同仁!
adoquery.GetTableNames(listbox1.Items,false);