以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]inputvalue 函数判断失败后如何不自动 关闭?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62800)
--  作者：loongtai
--  发布时间：2015/1/8 10:40:00
--  [求助]inputvalue 函数判断失败后如何不自动 关闭?
代码不让发，只能发图片了

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150108104236.png
图片点击可在新窗口打开查看

    
           
--  作者：jialihaha
--  发布时间：2015/1/8 10:43:00
--  
如果做不到，就自己设计个录入窗口吧
--  作者：Bin
--  发布时间：2015/1/8 10:45:00
--  
1 自己设计一个录入窗口
2. 参考

Dim Val As Integer = 0
Do While True
    If InputValue(Val, "增加行", "请输入要增加的行数:") Then
        If val< 5 Then
           MessageBox.show("太小了")
        Else
          Exit Do
        End If
    End If
Loop