Vb6 变量未定义

您好，我需要帮助这个错误，我在我的代码。变量未定义，在我定义变量后，它会抛出另一个错误，表示找不到方法或数据成员，并且它总是突出显示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

Private Sub cmdOK\u Click（）
关于错误转到e
frmDate=txtdate1.Text
endDate=txtdate2.Text
DataEnvironment1.Commands（“InjectionMaintenanceMaster”）.Parameters（0）=txtdate1
DataEnvironment1.命令（“InjectionMaintenanceMaster”）.参数（1）=txtdate2
和我的主人在一起
.Sections（“section 2”）.Controls（“lblDate1”）.Caption=txtdate1.Text
.Sections（“Section2”）.Controls（“lblDate2”）.Caption=txtdate2.Text
显示
以
DataEnvironment1.rsinPaientMaintenanceMaster.Close
卸下我
出口接头
e:
如果错误号3704，则
MsgBox错误说明，vbCritical
如果结束
端接头

请删除此行：

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

---

通过将其拆分，它应该精确地缩小您缺少的内容。

您是否声明了DataEnvironment？DataEnvironment1是否具有属性命令？如果有，那么它是否具有属性参数？您收到的错误消息是因为找不到指定的变量。我想你不能建造它，它只是出现在红色？还有，DataEnvironment1是什么类型的？请告诉我，我刚刚声明了DataEnvironment1，它抛出了另一个错误，因为找不到方法或数据成员，并且没有定义更多变量。首先，如果需要文本值，它应该是….Caption=txtdate1.Text（您缺少文本属性）。其次，您需要考虑错误消息实际上在说什么。它说找不到方法名或数据成员。。。它是哪个方法或数据成员？。在这一行中，您有5个可能的选项：DataEnvironment1、命令、参数、txtdate1或文本。哪一个导致了问题？另外，您是否需要使用VB6？如果不是，那么你可能想看看VB.NET或C#，因为现代IDE使查看此类问题的原因变得更加容易/请先生，它突出显示了.command错误已移至下一行DataEnvironment1.Commands（“InspitalMaintenanceMaster”）.Parameters（1）=txtdate2在我对该行也做了同样的操作之后，我现在在DataEnvironment1.rsinPaientMaintenanceMaster.Close的最末端出现了错误。rsInpatientMaintenanceMaster已突出显示。感谢您的支持。在这种情况下，请临时用Close注释掉该行，并查看结果。暂时将

DataEnvironment1.rsinPartientMaintenanceMaster.Close

更改为

''DataEnvironment1.rsinPartientMaintenanceMaster.Close

，从而隐藏显示错误的行。我们的目标是能够一步一步地检查代码，看看哪一行是真正导致错误的，因为目前还不清楚您是否已经发现了这一点