以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教关于限制新增表数据的方法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78473)

--  作者:我来看看
--  发布时间:2015/12/9 18:45:00
--  [求助]请教关于限制新增表数据的方法

我想实现这个功能:

 

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

 

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

[此贴子已经被作者于2015/12/9 18:46:13编辑过]

--  作者:大红袍
--  发布时间:2015/12/9 19:25:00
--  

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


--  作者:大红袍
--  发布时间:2015/12/9 19:28:00
--  

AfterOpenProject事件

 

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

 

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

 

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


--  作者:我来看看
--  发布时间:2015/12/9 19:28:00
--  
谢谢老师,我试一下,第二个功能能实现吗