Foxtable(狐表)用户栏目专家坐堂 → 关于table表的行数限制


  共有1409人关注过本帖树形打印复制链接

主题:关于table表的行数限制

帅哥哟,离线,有人找我吗?
ygg8310
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:989 积分:8827 威望:0 精华:0 注册:2016/4/10 14:33:00
关于table表的行数限制  发帖心情 Post By:2024/6/24 10:58:00 [只看该作者]

如何限制内部表的行数?防止内部表无限制的增长?例如内部表行数限制在500行超过500行将无法用任何方法新增行

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3202 积分:21279 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/6/24 11:13:00 [只看该作者]

先用代码获取表行数,DataTables("表A").DataRows.Count,在判断,如果大余500行,禁止新增
[此贴子已经被作者于2024/6/24 11:13:45编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ygg8310
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:989 积分:8827 威望:0 精华:0 注册:2016/4/10 14:33:00
  发帖心情 Post By:2024/6/24 11:16:00 [只看该作者]

禁止新增行代码是啥?

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3202 积分:21279 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:989 积分:8827 威望:0 精华:0 注册:2016/4/10 14:33:00
  发帖心情 Post By:2024/6/24 12:23:00 [只看该作者]

学习了,谢谢

 回到顶部