专家坐堂-选择：是与否，都不打开窗口1，而是打开窗口2，Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  选择：是与否，都不打开窗口1，而是打开窗口2，  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184287)

--  作者：bzqlyj
--  发布时间：2022/12/1 10:04:00
--  选择：是与否，都不打开窗口1，而是打开窗口2，

If Tables("xpxx.xpgg").Rows.Count > 0 Then
If Tables("xpxx.xpgg").Current.isnull("xpggzy") Then
Dim Resultkc As DialogResult
MessageBox.Show("请完善信息再录入"，"提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If Resultkc = DialogResult.Yes Then 选择：是与否，都不打开窗口1，而是打开窗口2，
MessageBox.Show("该1")
Forms("窗口1").Open()
Else
MessageBox.Show("该2")
Forms("窗口2").Open()
End If
Else
MessageBox.Show("该3")
Forms("窗口3").Open()
End If
End If

--  作者：有点蓝
--  发布时间：2022/12/1 10:21:00
--

If Tables("xpxx.xpgg").Rows.Count > 0 Then
If Tables("xpxx.xpgg").Current.isnull("xpggzy") Then
Dim Resultkc As DialogResult = MessageBox.Show("请完善信息再录入"，"提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
  If Resultkc = DialogResult.Yes Then   选择：是与否，都不打开窗口1，而是打开窗口2，

--  作者：bzqlyj
--  发布时间：2022/12/1 10:25:00
--  可以了
可以了