我的一点代码
procedure Thkglf.cplbjsDropDown(Sender: TObject);
begin
cplbjs.Items.Clear;
with cplbb.ADOQuery1 do
begin
close;
sql.clear;
sql.add('select * from cplb');
open;
while not eof do
begin
cplbjs.items.Add(fieldbyname('cplb').asstring);
next;
end;
end;
end;