以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何更改增加行时允许增加的最多行数？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98433)
--  作者：edisontsui
--  发布时间：2017/3/29 19:58:00
--  如何更改增加行时允许增加的最多行数？
现在增加行时，最多只允许增加300行。可否更改设置，比如改成允许增加1000行？
--  作者：有点色
--  发布时间：2017/3/29 20:25:00
--  
Dim Val As Integer = 5
Do While True
    InputValue(Val, "增加行","请输入增加多少行:")
    If val > 50 Then
        msgbox("最大50行")
    Else
        CurrentTable.StopRedraw
        For i As Integer = 1 To val
            CurrentTable.AddNew
        Next
        CurrentTable.ResumeRedraw
        Exit Do
    End If
Loop
--  作者：edisontsui
--  发布时间：2017/3/30 14:20:00
--  
请问将这些代码加入到哪里去？谢谢。
--  作者：狐狸爸爸
--  发布时间：2017/3/30 16:30:00
--  
应用系统菜单模板，修改增加多行按钮的代码，改为2楼的代码。
参考：
http://www.foxtable.com/webhelp/scr/1079.htm
--  作者：有点色
--  发布时间：2017/3/30 16:52:00
--  
 你可以自己做一个菜单按钮，填入2楼的代码。