Vb6表单加载错误

Question

我在调试一个用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

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

感谢您的帮助！

Answer 1

线路上有一个打字错误

Do While Not rstCurrentTicket.EOF

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

Do While Not rstCurrentTickets.EOF

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

您确实需要在您的VB6集成开发环境中启用Option Explicit，并确保您已经创建的每个表单/模块/类都在文件的顶部具有它。这迫使所有变量都被正确声明，并将消除许多这些难以找到的bug。