如何实现某个表每天只能增加500行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

试试这样,在新增按钮中放入这个代码:

Dim n As Integer = GetConfigValue("Count",1)

Tables("表A").AddNew

If n > 500 Then

MessageBox.Show("今日已经新增了500行了")

e.Sender.Enabled = False

End If

n = n + 1

SaveConfigValue("Count",n)

然后在窗口事件放入这个代码:

Dim n As Integer = GetConfigValue("Count",1)

If n > 2 Then

e.Form.Controls("Button1").Enabled = False

End If

这样一来新增满500行后就会锁定按钮,哪怕再次打开窗口,按钮也是锁定的. 至于每一天就要另外加入判断了.

主题：如何实现某个表每天只能增加500行？