为什么我的窗体隐藏不了?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mydataadapter As New SqlDataAdapter("select * from 用户表", SqlConnection1)
Dim mydataset As New DataSet()
mydataadapter.Fill(mydataset)
Dim myarray(20)
Dim myarray2(20)
Dim i As Integer
For i = 0 To mydataset.Tables(0).Rows.Count - 1
myarray(i) = CStr(mydataset.Tables(0).Rows(i).Item(0))
Next i
For i = 0 To mydataset.Tables(0).Rows.Count - 1
myarray2(i) = CStr(mydataset.Tables(0).Rows(i).Item(1))
Next
For i = 0 To mydataset.Tables(0).Rows.Count - 1
If Trim(username.Text) = myarray(i) And Trim(password.Text) = myarray2(i) Then
sales.Show()
market.Hide() <-*************************
Exit Sub
End If
Next
MsgBox("用户名与密码不符", MsgBoxStyle.OKOnly, "警告")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
大家帮忙看看