Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/typo3/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net visual basic-将信息从一个窗体调用到另一个窗体_Vb.net - Fatal编程技术网

Vb.net visual basic-将信息从一个窗体调用到另一个窗体

Vb.net visual basic-将信息从一个窗体调用到另一个窗体,vb.net,Vb.net,表格1(登入表格): 表格2: Private Sub Homepage_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try Dim connStr As String = "" Dim connection As New MySqlConnection(connStr) Dim READER As MySqlDataReader connection

表格1(登入表格):

表格2:

Private Sub Homepage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Try
        Dim connStr As String = ""
        Dim connection As New MySqlConnection(connStr)
        Dim READER As MySqlDataReader
        connection.Open()
        Dim Query As String
        Query = "select * from table where username= '" & form1.username.Text & " '"
        COMMAND = New MySqlCommand(Query, connection)
        READER = COMMAND.ExecuteReader
        If (READER.Read() = True) Then
            Dim username As String
            username = READER("username")
            lblusername.Text = "Logged in as: " & username
            connection.Close()
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub
好的,我遇到的问题是,当试图从form1中获取用户名信息时,它第一次就成功了。但是,如果我注销,并使用其他用户名登录,它仍然会显示相同的用户名?请有人帮我:)

非常简单的修复--

            Dim Homepage = New Homepage
            Homepage.Show()

            Me.Hide()

你能解释一下form1在代码第一次运行和其他用户登录之间发生了什么吗?它是关着还是一直开着?form1.username文本框中的信息是如何输入的?我现在已经包含了form1(登录表单)@Cindymister:)中的代码,很高兴有了这些代码,但是您发布的代码摘录没有回答我的问题。我相信如果你仔细思考事情是如何运作的,你可能会发现问题所在。提示:我在代码中看到了Me.Hide():它只隐藏form1,不卸载或重置它。这意味着form1中的所有信息可能仍然存在,除非您在某个地方有更改或卸载它的代码。我尝试将刷新函数编辑到适当的代码集中,但这并没有使@Cindymister发生任何变化
            Dim Homepage = New Homepage
            Homepage.Show()

            Me.Hide()