主题：请教哪出问题了？

     我想做成一个可查找的目录树，结果目录树没了，还有我想做2个按钮，一个把上月的数据锁定不能修改、删除，另一个取消锁定，请问怎么做？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:冲压车间工资表.table

    你的公式把所有有日期行锁定了，我要的效果是锁定上月数据，下一个月的数据不锁定。

锁定上月：

 

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)

 

解锁上月自己参照着改。

    我把你这公式改成：

 汗，你思路本身就有问题，单独做年、月文本框，设置要锁哪个月的啊。谁知道你现在要做哪个月的数据啊。

 

 

   不用知我做哪个月数据，反正设计成逐月锁定、逐月反审就行了，我是会计出身，做了10多年工业企业会计，接触过许多数据库软件，锁定就是结帐功能。

    我是成本会计，看你这么说你应对企业管理软件了解不多。

    哦，不好意思，我现在的table文件取消了窗口1的日期选项了。

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)