以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于月度审批的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70335)

--  作者:我来看看
--  发布时间:2015/6/19 10:18:00
--  [求助]关于月度审批的问题
请问我要实现一个功能,就是每个月月底的时候,领导可以将每个部门的本月的全部数据进行审批,审批界面要展示出本月涉及某个部门的本月全部详细数据(表A及表B),最后出现一个审批意见的文本框,输入意见提交后,展示出的全部数据锁定,禁止修改。
--  作者:Bin
--  发布时间:2015/6/19 10:20:00
--  
设置当前表的所有行的Locked属性=True即可
--  作者:大红袍
--  发布时间:2015/6/19 10:20:00
--  

 对表进行筛选即可,如

 

Dim d As Date = New Date(Date.Today, 1, 1)

Tables("表A").Filter = "日期 >= #" & d & "# and 日期 < #" & d.addMonths(1) & "#"