主题：请教哪出问题了？

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

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)

锁定的看10楼啊

这段代码，写到afterOpenProject就行啊

Tables("喷涂车间工资表").Cols("规格").Width= 150
Tables("喷涂车间工资表").Cols("工序").Width= 100
Tables("喷涂车间工资表").Cols("备注").Width= 250
Tables("喷涂车间工资表").AutoSizeRows()

DataColChanged事件

Select Case e.DataCol.name
    Case "姓名", "岗位"
        Dim fdr As DataRow = DataTables("系数表").find("姓名 = '" & e.DataRow("姓名") & "' and 级别 = '" & e.DataRow("岗位") & "' and 日期 <= #" & e.DataRow("日期") & "#", "日期 desc")
        If fdr IsNot Nothing
            e.DataRow("系数") = fdr("系数")
        End If
End Select

 从本月开始计算啊，逐月锁定啊，锁定2月正常啊，谁知道你要锁哪一月啊。

 代码没问题。

Dim d As Date = DataTables("冲压车间工资表").Compute("max(日期)")

vars("d1") = new Date(d.Year, d.Month, 1)

vars("d2") = new Date(d.Year, d.Month, 1)

Select Case e.DataCol.name
    Case "姓名", "岗位"

        Dim d As Date = e.DataRow("日期")

        d = new date(d.year, d.month, 1)
        Dim fdr As DataRow = DataTables("系数表").find("姓名 = '" & e.DataRow("姓名") & "' and 级别 = '" & e.DataRow("岗位") & "' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#", "日期 desc")
        If fdr IsNot Nothing
            e.DataRow("系数") = fdr("系数")

        Else

            e.DataRow("系数") = Nothing
        End If
End Select

1、要我说多少次？列属性设置目录树的时候，不要把系数加上啊；

2、姓名目录树，如果要更新，用代码更新http://www.foxtable.com/help/topics/2127.htm