要在窗体运行时,自动填充里面两个DBCOMBOBOX代码如下:
while not DM.AQ_dls.Eof do
begin
DBComboBox1.AddItem(DM.AQ_dls.FieldValues['dlsbh'],sender);
DBComboBox2.AddItem(DM.AQ_dls.FieldValues['dlsmc'],sender);
DM.AQ_dls.MoveBy(1);
end;
while not DM.AQ_splb.Eof do
begin
DBComboBox3.AddItem(DM.AQ_splb.FieldValues['lbmc'],sender);
DBComboBox4.AddItem(DM.AQ_splb.FieldValues['lbbh'],sender);
DM.AQ_splb.MoveBy(1);
end;可是出现有时候打开程序不能自动填充的情况,有没更好的填充方法,,谢谢各位大大了
while not DM.AQ_dls.Eof do
begin
DBComboBox1.AddItem(DM.AQ_dls.FieldValues['dlsbh'],sender);
DBComboBox2.AddItem(DM.AQ_dls.FieldValues['dlsmc'],sender);
DM.AQ_dls.MoveBy(1);
end;
while not DM.AQ_splb.Eof do
begin
DBComboBox3.AddItem(DM.AQ_splb.FieldValues['lbmc'],sender);
DBComboBox4.AddItem(DM.AQ_splb.FieldValues['lbbh'],sender);
DM.AQ_splb.MoveBy(1);
end;可是出现有时候打开程序不能自动填充的情况,有没更好的填充方法,,谢谢各位大大了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货