以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，插入多行前问我要插入多少行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97279)
--  作者：UBSS
--  发布时间：2017/3/9 9:33:00
--  求助，插入多行前问我要插入多少行
  快捷菜单中，我想实行一个功能，插入多行前问我要插入多少行后，再执行插入我说的好多行
--  作者：有点色
--  发布时间：2017/3/9 9:36:00
--  

 导入系统菜单，然后加入自己的菜单

 

http://www.foxtable.com/webhelp/scr/1079.htm

 
--  作者：有点色
--  发布时间：2017/3/9 9:39:00
--  
Dim Val As Integer = 5
If InputValue(Val, "插入行","请输入插入多少行:") Then
    For i As Integer = 1 To val
        CurrentTable.InsertNew
    Next
End If
--  作者：UBSS
--  发布时间：2017/3/9 9:50:00
--  
代码能不能改改，我想最多可一次性插入50行
--  作者：有点色
--  发布时间：2017/3/9 10:36:00
--  
Dim Val As Integer = 5
Do While True
    InputValue(Val, "插入行","请输入插入多少行:")
    If val > 50 Then
        msgbox("最大50行")
    Else
        For i As Integer = 1 To val
            CurrentTable.InsertNew
        Next
        Exit Do
    End If
Loop
--  作者：2900819580
--  发布时间：2017/3/9 10:48:00
--  
有点色老师，这样少了do循环，差别在那里。

Dim Val As Integer = 5
    InputValue(Val, "插入行","请输入插入多少行:")
    If val > 50 Then
        msgbox("最大50行")
    Else
        For i As Integer = 1 To val
            CurrentTable.InsertNew
        Next
    End If
--  作者：有点蓝
--  发布时间：2017/3/9 11:04:00
--  
测试一下就知道了

没有do，就输入超出50后不会再弹出输入框