主题：求助，插入多行前问我要插入多少行

  快捷菜单中，我想实行一个功能，插入多行前问我要插入多少行后，再执行插入我说的好多行

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

 

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

 

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

代码能不能改改，我想最多可一次性插入50行

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

有点色老师，这样少了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

测试一下就知道了