我苦恼

Question

Private Sub Form_Load()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer
'为下拉列表框添加内容
comboSex.AddItem "男"
comboSex.AddItem "女"
txtSQL = "select * from class_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'添加内容到列表框
For i = 1 To mrc.RecordCount
comboClassNo.AddItem mrc.Fields(i)
mrc.MoveNext
Next i
mrc.Close
End sub这段代码中 comboSex.AddItem "男" 这句有什么问题啊

Answer 1

comboSex不存在？看上去没问题。

Answer 2

你窗口的combobox不叫这个名字吧
comboSex你到窗口去看看

Answer 3

估计命名错误，comboSex写错了。

Answer 4

加一个combobox控件，选中该控件,在右下角的属性窗口中把Name属性改为 comboSex

Answer 5

comboSex应该是combobox控件，lz不会是用其他的控件了？

Answer 6

搞不清楚楼上的那么多人都怎么看的。comboClassNo.AddItem mrc.Fields(i)这里改一下，mrc.fields("Sex").value & vbnullstring

Answer 7

For i = 1 To mrc.RecordCount
comboClassNo.AddItem mrc.Fields(i)
mrc.MoveNext
Next i
mrc.Close好像红色部分错误了，好像lz的意思是取所有的classno的记录，添加到comboclassno里面，可是，在记录集里面不应该这个用的，i是记录的顺序号，然后每次添加的是不同数据域的值。也许这里应该是comboClassNo.AddItem mrc.Fields(classno）吧

Answer 8

适当的修改后，测试后这句For i = 1 To mrc.RecordCount，出现“对象变量或with变量未设置”怎么办啊，，大家再帮帮忙