UC知道VB编程高手
来源：百度知道 编辑：UC知道 时间：2024/05/22 16:53:46
我编了段代码如下：
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 ‘这步报错，说re.Fields(6)没找到集合项目，请问是什么原因？
Combo1.AddItem re.Fields(6)
End If
Next i
re.MoveNext
Loop
Combo1.Text = Combo1.List(0)
请问是什么原因导致这个错误的？re.Fields(6)-这个字段在表中是存在无误的。
亟盼答复谢谢！
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 ‘这步报错，说re.Fields(6)没找到集合项目，请问是什么原因？
Combo1.AddItem re.Fields(6)
End If
Next i
re.MoveNext
Loop
Combo1.Text = Combo1.List(0)
请问是什么原因导致这个错误的？re.Fields(6)-这个字段在表中是存在无误的。
亟盼答复谢谢！
s10 = "select 章 from examination where 题型='选择题’"
这个sql语句都没有7个字段怎么来个fields(6)?
程式调用的数据库中的表字段不存在或是字段存在无数据存在。本身过程中又没有加入容错代码。