D
DYI
Unregistered / Unconfirmed
GUEST, unregistred user!
请问为什么请问为什么ComboBox事件无效,用按钮实现都可以!<br>想实现功能:点击ComboBox,自动刷新ComboBox下拉列表内容。<br>代码如下:<br>procedure TForm8.ComboBox2Select(Sender: TObject);<br>begin<br>with db.ADOQuery2 do<br>begin<br>close;<br>sql.Clear;<br>sql.add('select 版本号 from bd');<br>open;<br>first;<br><br>if db.ADOQuery2.recordcount>0 then<br>begin<br>while not db.ADOQuery2.Eof 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.