如何限制内部表的行数？防止内部表无限制的增长？例如内部表行数限制在500行超过500行将无法用任何方法新增行
先用代码获取表行数，DataTables("表A").DataRows.Count，在判断，如果大余500行，禁止新增
[此贴子已经被作者于2024/6/24 11:13:45编辑过]
你代码写在那儿？还是要禁用新增按钮？
Dim n As Integer = DataTables("表A").DataRows.Count
If n >= 500 Then
e.Cancel = True
Return
Else
Tables("表A").AddNew()
End If
[此贴子已经被作者于2024/6/24 11:21:54编辑过]
参考：
http://www.foxtable.com/webhelp/topics/0629.htm
BeforeAddDataRow事件
If e.DataTable.datarows.count >= 500 Then
e.Cancel = True '那么取消输入并提示用户
Messagebox.Show("领导说了，如果大余500行，禁止新增！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If