请问为什么ComboBox事件无效,用按钮实现都可以! ( 积分: 20 )

  • 主题发起人 主题发起人 DYI
  • 开始时间 开始时间
D

DYI

Unregistered / Unconfirmed
GUEST, unregistred user!
请问为什么请问为什么ComboBox事件无效,用按钮实现都可以!<br>想实现功能:点击ComboBox,自动刷新ComboBox下拉列表内容。<br>代码如下:<br>procedure&nbsp;TForm8.ComboBox2Select(Sender:&nbsp;TObject);<br>begin<br>with&nbsp;db.ADOQuery2&nbsp;do<br>begin<br>close;<br>sql.Clear;<br>sql.add('select&nbsp;版本号&nbsp;from&nbsp;bd');<br>open;<br>first;<br><br>if&nbsp;db.ADOQuery2.recordcount&gt;0&nbsp;then<br>begin<br>while&nbsp;not&nbsp;db.ADOQuery2.Eof&nbsp;do<br>begin<br>comboBox2.Items.Add(db.ADOQuery2.fieldbyname('版本号').asstring);<br>Next;<br><br>end;<br>end;<br>end;<br>end;<br>end;<br><br>end.
 
改成在TForm8.ComboBox2DropDown事情下呢?
 
你想实现啥具体功能?
 
改成在TForm8.ComboBox2DropDown事情下,还是不行!晕哟,难道ComboBox控件出问题了!
 
这可以用TcxLookupcombobox来实现~~简单~不用写代码~
 
DropDown事件,可以啊<br>if&nbsp;Qry.RecordCount&nbsp;&gt;&nbsp;0&nbsp;then<br>begin<br>&nbsp;&nbsp;cbb.Items.Clear();<br>&nbsp;&nbsp;First<br>&nbsp;&nbsp;while&nbsp;Not&nbsp;Qry.Eof&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;cbb.Items.Add(Qry.FieldByName('').AsString);<br>&nbsp;&nbsp;&nbsp;&nbsp;Qry.Next;<br>&nbsp;&nbsp;end;<br>end;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
696
import
I
后退
顶部