关于VB中的COMBOBOX！急急急！

关于VB中的COMBOBOX！急急急！

这个简单，拖个combobox到窗体，在窗体load中加入一下代码，就ok了
Combo1.Text = "请选择……"
For i = 0 To 5
Combo1.AddItem "name" + CStr(i), i
Next i

如果要从数据库中读取，就下面代码
Public Sub myAddGroup()
Combo1.Clear
Set db2 = OpenDatabase(App.Path + "\sysdb\数据库名.mdb")
Set rs2 = db2.OpenRecordset("select * from alam_tab where devnum='" & AlarmYt.ItemData(AlarmYt.ListIndex) & "' order by 日期 desc")
If rs2.RecordCount > 0 Then
Do While Not rs2.EOF
Combo1.AddItem rs2!Name
rs2.MoveNext
Loop
End If
rs2.Close
db2.Close
End Sub

这段点击事件代码中就没有给Combobox 的下拉项AddItem赋值的代码啊，你这段代码里面用到的是MSFlexGrid控件

这段代码没有添加combobox的操作，只是一段换页的操作，你能否把combobox添加项的代码粘上来，还是你忘了加combobox的项了？

combobox是列表框，你需要添加成员，属性框里有一个“list”是用来添加成员的，ctrl+enter是换行，去看看吧！！

你用的是不是迷你版的VB？有些功能是不全的。。。。。。。
如果楼上那些的方法都不行，那建议你去载个完整的再来尝试。。。。。。

我现在电脑上没有vb所以没法尝试，但以前在学的时候，有许多的属性设置写在代码框中定义是没有用的，一定要在右边的属性框里设置才能有效，拷贝别人程序却失效的许多原因就是如此。

找所有的代码,搜索

AlarmYt.AddItem

这是给combo添加项目的代码,找到,看看人家怎么添加的
在你需要的地方添加就行了

======================
With Form13
你有form13吗?
它只是对form13的那个combolist操作
你如果没有form13,就把form13改成你combo在的那个form