- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教哪出问题了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82424)
-- 发布时间：2016/3/17 15:41:00
-- 请教哪出问题了？
我想做成一个可查找的目录树，结果目录树没了，还有我想做2个按钮，一个把上月的数据锁定不能修改、删除，另一个取消锁定，请问怎么做？
-- 发布时间：2016/3/17 15:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:冲压车间工资表.table |
-- 发布时间：2016/3/18 17:30:00
--
你的公式把所有有日期行锁定了，我要的效果是锁定上月数据，下一个月的数据不锁定。
-- 发布时间：2016/3/18 17:37:00
--
锁定上月：
Dim d1 As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Dim d2 As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
d1= d1.AddMonths(-1)
d2 = d2.AddDays(-1)
Dim filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", True, filter)
解锁上月自己参照着改。
-- 发布时间：2016/3/18 20:56:00
--
我把你这公式改成：
-- 发布时间：2016/3/21 1:17:00
--
汗，你思路本身就有问题，单独做年、月文本框，设置要锁哪个月的啊。谁知道你现在要做哪个月的数据啊。
-- 发布时间：2016/3/21 8:33:00
--
不用知我做哪个月数据，反正设计成逐月锁定、逐月反审就行了，我是会计出身，做了10多年工业企业会计，接触过许多数据库软件，锁定就是结帐功能。
-- 发布时间：2016/3/21 8:36:00
--
我是成本会计，看你这么说你应对企业管理软件了解不多。
-- 发布时间：2016/3/21 9:31:00
--
哦，不好意思，我现在的table文件取消了窗口1的日期选项了。
-- 发布时间：2016/3/21 10:11:00
--
afterOpenProject
vars("d1") = new Date(Date.Today.Year, Date.Today.Month, 1)
vars("d2") = new Date(Date.Today.Year, Date.Today.Month, 1)
锁定
Dim d As Date = vars("d1")
Dim filter = "日期 >= #" & d.AddMonths(-1) & "# And 日期 < #" & d & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", True, filter)
vars("d1") = d.AddMonths(-1)
反锁
Dim d As Date = vars("d2")
Dim filter = "日期 >= #" & d.AddMonths(-1) & "# And 日期 < #" & d & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", false, filter)
vars("d2") = d.AddMonths(-1)