以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于table表的行数限制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192460)

--  作者:ygg8310
--  发布时间:2024/6/24 10:58:00
--  关于table表的行数限制
如何限制内部表的行数?防止内部表无限制的增长?例如内部表行数限制在500行超过500行将无法用任何方法新增行
--  作者:cd_tdh
--  发布时间:2024/6/24 11:13:00
--  
先用代码获取表行数,DataTables("表A").DataRows.Count,在判断,如果大余500行,禁止新增
[此贴子已经被作者于2024/6/24 11:13:45编辑过]

--  作者:ygg8310
--  发布时间:2024/6/24 11:16:00
--  
禁止新增行代码是啥?
--  作者:cd_tdh
--  发布时间:2024/6/24 11:17:00
--  
你代码写在那儿?还是要禁用新增按钮?
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编辑过]

--  作者:有点蓝
--  发布时间:2024/6/24 11:57:00
--  
参考: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

--  作者:ygg8310
--  发布时间:2024/6/24 12:23:00
--  
学习了,谢谢