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 IDE中打开Option Explicit，并确保您已创建的每个表单/模块/类都将它放在文件的顶部。这会强制所有变量都被正确声明，并且会摆脱很多难以发现的错误。

Vb6表单加载错误

1 个答案: