请Vb高手一定帮忙解决,十万火急。
我编了段代码，并建好了个试卷题库表，要实现的是从表中读取“章节”的字段，并且“题型”为选择题的功能，代码如下：
Dim s10, As String
Dim re As ADODB.Recordset
s10 = "select 章 from examination where 题型= '选择题’ "
Set re = executesql(s10)
Combo1.Clear
re.MoveFirst
Do While Not re.EOF
For i = 0 To Combo1.ListCount - 1
If re.Fields(6) <> Combo1.List(i) Then ‘这步抱错，说没找到集合项目
Combo1.AddItem re.Fields(6)
End If
Next i
re.MoveNext
Loop
Combo1.Text = Combo1.List(0)
请问是什么原因导致这个错误的？
亟盼答复谢谢！
[解决办法]
s10 = "select 章 from examination where 题型= '选择题’ "
If re.Fields(6) <> Combo1.List(i) Then ‘这步抱错，说没找到集合项目
打开记录集的语句中仅仅有一个字段，而取记录集的字段时确取第7个字段的值，当然报错。根本就不存在第七个字段
[解决办法]
s10 = "select 章 from examination where 题型= '选择题 ' "
这个SQL查询的结果集中只会存在一个名为 "章 "的字段，哪来的第七个字段啊。
[解决办法]
Dim s10, As String
Dim re As ADODB.Recordset
这两句写的也不对啊
[解决办法]
1)Dim re As new ADODB.Recordset
Dim s10 As String
2)
s10 = "select 章 from examination where 题型= '选择题 ' "
这个SQL查询的结果集中只会存在一个名为 "章 "的字段，哪来的第七个字段啊。
[解决办法]
Dim re As new ADODB.Recordset
Dim s10 As String
s10 = "select * from examination where 题型= '选择题 ' "
