Database Vb6表单加载错误

我在调试一个用vb6编写的简单应用程序时遇到困难。在这个阶段，我所要做的就是打开一个表单并用数据库中的条目填充一个组合框

这是我的密码：

 Public Sub Form_Load()

''''''''''''''''''''''''''''Fill ComboBox with open Tickets'''''''''''''''''''
Dim Sqlstring As String
Dim rstCurrentTickets As Recordset

Sqlstring = "Select * from TroubleTickets where ResolvedDate IS Null"
Set rstCurrentTickets = cnnSel.OpenRecordset(Sqlstring)

Do While Not rstCurrentTicket.EOF

If Not IsNull(rstCurrentTicket.Fields!TroubleTicketId) Then
        TicketComboBox.AddItem (Trim(rstCurrentTicket.Fields!Title))
End If
TicketComboBox.MoveNext
Loop
''''''''''''''''''''''''''''End of Segment'''''''''''''''''''


If CreateNewTicketRadioButton.value = True Then
CreateSubmitButton.visible = True
CloseButton.visible = False
EditButton.visible = False

ElseIf (EditOpenTicketRadioButton.value = True) Then

CreateSubmitButton.visible = False
CloseButton.visible = False
EditButton.visible = True

ElseIf (CloseResolvedTicketRadioButton.value = True) Then

CreateSubmitButton.visible = False
CloseButton.visible = True
EditButton.visible = False

End If



End Sub

当我在调试器中运行它时，它在加载子节点上停止并给出错误：“编译错误：找不到方法或数据成员。”

---

感谢您的帮助

线路上有一个打字错误

Do While Not rstCurrentTicket.EOF

在变量名的末尾应该有一个s：

Do While Not rstCurrentTickets.EOF

在引用此变量的其他地方也存在类似的问题

---

您确实需要在VB6IDE中启用OptionExplicit，并确保已创建的每个表单/模块/类都将其放在文件的顶部。这将迫使所有变量都不能正确声明，并将消除许多难以发现的bug。

行中有一个输入错误

Do While Not rstCurrentTicket.EOF

在变量名的末尾应该有一个s：

Do While Not rstCurrentTickets.EOF

在引用此变量的其他地方也存在类似的问题

---

您确实需要在VB6IDE中启用OptionExplicit，并确保已创建的每个表单/模块/类都将其放在文件的顶部。这将迫使所有变量不能正确声明，并将消除许多难以发现的错误。

感谢您的帮助，它解决了我的问题。如果您避免不必要的双重否定，它还可以使您的逻辑更容易理解，也就是说，直到EOF，而不是EOF。谢谢你的帮助，它解决了我的问题。如果你避免不必要的双重否定，也可以使你的逻辑更容易理解，也就是说，直到EOF，而不是做，而不是不EOF。