主题：求助：如何判断一个表总行数 且大于某个数后不允许新增行！

 参考

http://www.foxtable.com/help/topics/0629.htm

呃，参考

http://www.foxtable.com/help/topics/0393.htm

 不知道你到底先做什么

If i1 = h.text  Then  '当I1等于H.TEXT时候 弹出如下提示
    Dim Result As DialogResult
    Result = MessageBox.Show("根据当前行设置数据,不能再次增加!且新增数据不会显示在模板中,是否确定操作!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Dim ab4 As Row=Tables("创业计划书.工具和设备").AddNew()
        ab4("类型") ="交通工具"
    End If
Else  If i1 < h.text  Then   '当小于预定值的时候  执行下面的操作 假设h的值等于9 I1等于6 那么新增三行
    Dim ab5 As Row=Tables("创业计划书.工具和设备").AddNew(h.text-i1)
    ab5("类型") ="交通工具"
Else
    Dim vals() As String = {"交通工具","交通工具","交通工具","交通工具","交通工具","交通工具"}
    For i As Integer =0 To vals.Length - 1
        Dim ab As Row=Tables("创业计划书.工具和设备").AddNew()
        ab("类型") = vals(i)
    Next
End If