如何实现这个功能 Private Sub Command1_Click()Combo1.AddItem Text1.TextEnd Sub 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果想加点功能,例如不允许添加重复内容的项目,也可以,这样更实用Private Sub Command1_Click()For i = 0 To Combo1.ListCount - 1 If Combo1.List(i) = Text1.Text Then Exit SubNextCombo1.AddItem Text1.TextEnd Sub 为什么下面这段代码在VS2005下没问题 在VB6下有问题? 关于多表之间进行数据统计问题(SQL SERVER数据库) 谁能帮我看懂这段VB与ORACLE的代码 一个简单问题,有分等你拿! 请教一个菜鸟问题。 在线求助 在SQL通过,但是为什么在VBA里不通过 高手请进(100大分送) 急救,两句简单的代码却一直溢出!急救啊 文件读写高手请进: 这个文本框怎么不能获得焦点? 关于减法运算问题
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Text1.Text Then Exit Sub
Next
Combo1.AddItem Text1.Text
End Sub