以下是引用jianjingmaoyi在2012-6-28 21:43:00的发言：
试试这样,在新增按钮中放入这个代码:
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 '这个地方错了应该是500.
e.Form.Controls("Button1").Enabled = False
End If
这样一来 新增满500行后 就会锁定按钮,哪怕再次打开窗口,按钮也是锁定的. 至于每一天 就要另外加入判断了.
加好友 
发短信
Post By：2012/6/29 7:17:00 [显示全部帖子]
