无输入值时禁止InputValue对话框关闭 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 无输入值时禁止InputValue对话框关闭

共有2069人关注过本帖树形打印复制链接主题：无输入值时禁止InputValue对话框关闭

HappyFt

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1909 积分：16987 威望：0 精华：0 注册：2014/7/29 19:09:00

无输入值时禁止InputValue对话框关闭 发帖心情

Post By：2016/3/10 19:44:00 [只看该作者]

当弹出InputValue对话框后用启用必须要输入一个值，否则中止执行，不能关闭或取消此对话框，要怎么才能实现？谢谢！

弹出对话框的代码如下：

Dim Val As String
If InputValue(Val,"复制新增","请手工输入新的'" & s(i) & "'") Then
       If Val Is Nothing
           MessageBox.Show(s(i) & "不能为空!","提示")
          Return '禁止关闭对话框
        Else
          e.DataRow(s(i)) = Val
       End If
End If

yinyb36

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：953 积分：7252 威望：0 精华：0 注册：2011/9/6 13:36:00

Post By：2016/3/10 21:57:00 [只看该作者]

不能关闭的话，自己做窗口吧

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/11 0:17:00 [只看该作者]

Dim Val As String = Nothing
Do While True
    InputValue(Val,"复制新增","请手工输入")
    If Val Is Nothing
        MessageBox.Show("不能为空!","提示")
    Else
        Exit do
    End If
loop

下一主题 >> << 上一主题

主题：无输入值时禁止InputValue对话框关闭