Question

已经可见的窗体不能显示为模式对话框。在调用 showDialog 之前应将窗体的 Visible设置为false 该如何解决

一下为代码，请说下代码该具体怎么修改，谢谢
Public Class Teamcheckout

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.ShowDialog()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Num, Checkouttime As String
Num = TextBox1.Text
Checkouttime = TextBox2.Text
Dim fa As New myData '定义对象
Dim a As String = myData.DataType.Access '定义数据库类型
fa.Subb("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\旅店.mdb", a)
'If Num = fa.EXESQLReaderA("select 序号 from 团队入住") Then '判断是否存在该序号
fa.EXESQLCommand("Update 团队住客 set 退房时间= '" & Checkouttime & "' where 序号 =" & Num & "")
'Else
'MessageBox.Show("此系统中无此序号")
'End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""

End Sub
End Class

Answer 1

在从主窗体中打开子窗体之前，子窗体应该是不可见的。