VB 错误：“mAuto1”没有声明。由于其保护级别，它可能无法访问”。需要解决方案

Question

我是 C# 和 Visual Basic 编程新手。我正在使用 Visual Studio 2010，我正在尝试从 mysql 数据库检索一些数据。使用 wamp 安装。

我已经通过转到“项目”、“应用程序属性”、“设置”来设置与数据库的连接。

我有这个错误“'mAuto1'未声明。由于其保护级别，它可能无法访问”，我似乎无法解决它。

下面的代码用于简单的检索：

Public Class Form1

    Private procAuto As CALCOM.Auto

    Private Function Connect_To_Database() As Boolean
        Dim mErrorNumQuery As Long
        Dim mReturn As Boolean
        procAuto = New CALCOM.Auto
        procAuto.Connect(mErrorNumQuery)
        If mErrorNumQuery = 0 Then
            mReturn = True
        Else
            mReturn = False
        End If
        Connect_To_Database = mReturn
    End Function

    Private Function Get_Weight_By_TicketNumber(ByVal mTicketNumber As String, ByRef mAuto1 As Long, ByRef mAuto2 As Long, ByRef mTotalWeight As Long) As Boolean
        Dim mErrorNumQuery As Long
        Dim mXtr As New CALCOM.xTr
        Dim mRec As ADODB.Recordset
        Dim mReturn As Boolean
        mRec = mXtr.GetList("Select Auto1,Auto2,TotalWeight From txticket Where TicketCode = '" & mTicketNumber & "'", , , mErrorNumQuery)
        If mErrorNumQuery = 0 Then
            mReturn = True
            If mRec.RecordCount <> 0 Then
                mRec.MoveFirst()
                mRec.MoveFirst()
                mAuto1 = mRec.Fields("Auto1").Value
                mAuto2 = mRec.Fields("Auto2").Value
                mTotalWeight = mRec.Fields("TotalWeight").Value
            End If
        Else
            mReturn = False
        End If
        Get_Weight_By_TicketNumber = mReturn
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = mAuto1 <--------------------problem here
    End Sub
End Class

这个程序只是一个测试，看看我是否可以在表单标签上显示 mysql 查询的结果。我想通过单击按钮来显示结果

如何修复该错误？任何帮助表示赞赏。

Answer 1

mAuto1 变体是 Get_Weight_By_TicketNumber 函数中的本地变体，您不能在函数外部使用它。如果需要，可以声明一个类级别变量并将其设置为 mAuto1 的值。