with dbcomboboxeh3 do
begin
Items.clear;
with dm_fm.Query_xl do
begin
close;
sql.clear;
sql.add('select * from cyzl_qyg');
open;
first;
begin
while not Eof do
begin
dbComboBoxeh3.Items.Add(Fieldbyname('qyg_ywmc').asstring);
next;
end;
end;
end;
end;
dm_fm.Query_xl.Active:=false;
begin
Items.clear;
with dm_fm.Query_xl do
begin
close;
sql.clear;
sql.add('select * from cyzl_qyg');
open;
first;
begin
while not Eof do
begin
dbComboBoxeh3.Items.Add(Fieldbyname('qyg_ywmc').asstring);
next;
end;
end;
end;
end;
dm_fm.Query_xl.Active:=false;