Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
ygg8310 发表于:2024/6/24 10:58:00
如何限制内部表的行数?防止内部表无限制的增长?例如内部表行数限制在500行超过500行将无法用任何方法新增行
2楼
cd_tdh 发表于:2024/6/24 11:13:00
先用代码获取表行数,DataTables("表A").DataRows.Count,在判断,如果大余500行,禁止新增
[此贴子已经被作者于2024/6/24 11:13:45编辑过]
3楼
ygg8310 发表于:2024/6/24 11:16:00
禁止新增行代码是啥?
4楼
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编辑过]
5楼
有点蓝 发表于: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
6楼
ygg8310 发表于:2024/6/24 12:23:00
学习了,谢谢
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.