我在写主窗口的时候利用以下代码
Me.Hide()
Dim frm As New frmLogin
If frm.ShowDialog() = DialogResult.OK Then '弹出登录对话框
frm.Close()
Me.Show()
End If
cls.Fill_Tview(TView)
End Sub
在登录窗口中使用了
Private Sub ButOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButOK.Click
Dim strPwd As String
strPwd = txtPWD.Text
If Me.CboUser.SelectedValue = strPwd Then
ButOK.DialogResult = DialogResult.OK
Else
MsgBox("你输入的密码错误")
End If
End Sub
但不知为什么该按钮在点击一次情况无法显示主窗口，如果在点击一次程序将运行正确。

谢谢！你的方法的已经测试过，能够使用了，可是我还是无法理解，这是为什么呢。按照您的解释，我第一次点击按钮时，是将按钮定义Dialogresult属性定义为OK，而第二次点击才是属性的传递，是不是这个意思，不知能否告诉我您的邮箱，以后多向您学习。
我这里还一个问题，是关于VB.NET自带的报表系统。当我打开从别人那里下载的源代码，可以实现打印，可是使用我自己的代码却不能实现了。
Dim strcmd As String
strcmd = "select tabxm.bsjdwname,Bsjdwdsjbgdsmyj.Bbsjdwsmyj,Bsjdwdsjbgdsmyj.Bbsjdwfzr,Bsjdwdsjbgdsmyj.cjrq from Bsjdwdsjbgdsmyj,tabxm where Bsjdwdsjbgdsmyj.xmname=tabxm.xmname" _
& " and Bsjdwdsjbgdsmyj.xmname='" & Me.cboxm.Text & "' and Bsjdwdsjbgdsmyj.mlname='" & Me.txtMLname.Text & "'"

Dim report As New CrptBsjdwdsjbgdsmyj
Dim dataset As New DsetBsjdwdsjbgdsmyj
Dim conn As New OleDbConnection
conn.ConnectionString = cls.conn
conn.Open()

Dim oledbapter As New OleDbDataAdapter(strcmd, conn)
oledbapter.Fill(dataset, "bjsdwdsjbgdsmyj")
report.SetDataSource(dataset)
Dim frtemp As New FrmPreview
frtemp.CryViewer.ReportSource = report
frtemp.Show()
当我预览的时候，显示为正确，但点击打印和导出按钮，却没有反应了。如果您没有看清楚的话，能告诉您的邮箱，我发给您，谢谢！