专家坐堂-求助：设定最多可插入行数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

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

--  作者：UBSS
--  发布时间：2017/3/9 10:23:00
--  求助：设定最多可插入行数

Dim Val As Integer = 5
If InputValue(Val, "插入行","请输入插入多少行:") Then
    For i As Integer = 1 To val
        CurrentTable.InsertNew
    Next
End If

这个代码没设定最多可插入行数，我想设定个条件，一次性最多可插入50行，能改哈不

--  作者：有点色
--  发布时间：2017/3/9 10:40: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