Foxtable(狐表)用户栏目专家坐堂 → 选择:是与否,都不打开窗口1,而是打开窗口2,


  共有3817人关注过本帖树形打印复制链接

主题:选择:是与否,都不打开窗口1,而是打开窗口2,

帅哥哟,离线,有人找我吗?
bzqlyj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:251 积分:2060 威望:0 精华:0 注册:2020/9/28 14:53:00
选择:是与否,都不打开窗口1,而是打开窗口2,  发帖心情 Post By:2022/12/1 10:04: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,
            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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:251 积分:2060 威望:0 精华:0 注册:2020/9/28 14:53:00
可以了  发帖心情 Post By:2022/12/1 10:25:00 [只看该作者]

可以了

 回到顶部