如果只添加一个字段,可以用下面的方法: while not tablename.EOF do begin comboboxname.Items.tablename.fieldbyname('field').AsString); tablename.Next; end;
用循环加入所要的数据. procedure Tform1.button1(sender:object); var id:ansistring; begin sql_kczl.sqlquery('select * from kczl_inf '); while not sql_kczl.Eof do begin id:=sql_kczl.Getvaluebyname('kczl_name'); kczl.Items.Add(id);//注意了,在这里加入. sql_kczl.next; end; kczl.ItemIndex:=0; end;
请问你是用的bde还是ADO,这两种有一定的区别呀。
如果只添加一个字段,可以用下面的方法: while not tablename.EOF do begin comboboxname.Items.tablename.fieldbyname('field').AsString); tablename.Next; end;
while not tablename.EOF do begin
comboboxname.Items.tablename.fieldbyname('field').AsString);
tablename.Next;
end;
procedure Tform1.button1(sender:object);
var
id:ansistring;
begin
sql_kczl.sqlquery('select * from kczl_inf ');
while not sql_kczl.Eof do
begin
id:=sql_kczl.Getvaluebyname('kczl_name');
kczl.Items.Add(id);//注意了,在这里加入.
sql_kczl.next;
end;
kczl.ItemIndex:=0;
end;
while not tablename.EOF do begin
comboboxname.Items.tablename.fieldbyname('field').AsString);
tablename.Next;
end;