以文本方式查看主题

-  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=119718)

--  作者:huaqing8828
--  发布时间:2018/5/30 18:41:00
--  求助自动增加行数代码
老师,自动增加行数的代码怎么写?比如我要增加5行,写入5然后确定后自动增加5行
--  作者:有点甜
--  发布时间:2018/5/30 18:57:00
--  
Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    For i As Integer = 1 To val
        CurrentTable.addnew
    Next
End If

--  作者:huaqing8828
--  发布时间:2018/5/30 19:17:00
--  
谢谢