以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  无输入值时禁止InputValue对话框关闭  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82061)
--  作者：HappyFt
--  发布时间：2016/3/10 19:44:00
--  无输入值时禁止InputValue对话框关闭

 当弹出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
--  发布时间：2016/3/10 21:57:00
--  
不能关闭的话，自己做窗口吧
--  作者：大红袍
--  发布时间：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