未定义变量

Question

Hi I need help on this error that I am getting on my code.变量未定义，在我定义变量后，它抛出另一个错误，说方法或数据成员未找到，它总是突出显示DataEnvironment1.commands.我使用一个日历来访问我的报告，什么是可能的问题，请任何帮助。

这是我的代码。

Private Sub cmdOK_Click()

    On Error GoTo e
        frmDate = txtdate1.Text
        endDate = txtdate2.Text

        DataEnvironment1.Commands("InpatientMaintenanceMaster").Parameters(0) = txtdate1
        DataEnvironment1.Commands("InpatientMaintenanceMaster").Parameters(1) = txtdate2
        With RptInpatientMaster
            .Sections("Section2").Controls("lblDate1").Caption = txtdate1.Text
            .Sections("Section2").Controls("lblDate2").Caption = txtdate2.Text
            .Show
        End With
        DataEnvironment1.rsInpatientMaintenanceMaster.Close  
        Unload Me
    Exit Sub

e:
    If Err.Number <> 3704 Then
        MsgBox Err.Description, vbCritical
    End If
End Sub

Answer 1

请删除这一行。

DataEnvironment1.Commands("InpatientMaintenanceMaster").Parameters(0) = txtdate1

然后用这个代替它 然后告诉我们哪一行是你的错误。

Dim dataEnv As Object
Set dataEnv = DataEnvironment1

Dim cmd As Object
Set cmd = dataEnv.Commands("InpatientMaintenanceMaster")

Dim dateString As String
dateString = txtdate1.Text 'assuming this is truly a textbox control?

cmd.Parameters(0) = dateString 'should really be using frmDate instead

把这句话拆开来，就能知道你到底漏掉了什么。