主题：[求助]请教关于限制新增表数据的方法

我想实现这个功能：

1、表A的数据，用户只能新增三日以内的，比如今天12月9日，点击增加按钮后只能在数据表中增加7-9日的内容，想补充增加7日以前的数据是不能增加的，请问如何实现？？

2、表A的数据在每个月的月底日（30或31日）系统自动锁定之前的表数据，用户不能再编辑、删除相关数据（只有管理员可以），请问如何实现？？？

datacolchanging事件

If e.DataCol.Name = "日期" AndAlso e.NewValue <> Nothing Then

    If e.NewValue < Date.Today.AddDays(-3) Then

        e.Cancel = True

    End If

End If

AfterOpenProject事件

Datatables("表A").ReplaceFor("_Locked", true, "日期 < #" & new date(date.Now.Year, date.Now.Month, 1) & "#")

要想编辑，就运行代码解锁当前行

Tables("表A").Current.Locked = False