主题：请教哪出问题了？

Select Case e.DataCol.name
    Case "系数"
        DataTables("喷涂车间工资表").DataCols("姓名").RaiseDataColChanged("姓名 = '" & e.DataRow("姓名") & "' and 岗位 = '" & e.DataRow("级别") & "'")
End Select

afterOpenProject事件

 

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("系数表") '指定目录树表
tb.TreeCols = "姓名|级别" '指定用于生成目录树的列
tb.SourceCols = "姓名|级别" '指定数据来源列
tb.ReceiveCols = "姓名|岗位" '指定数据接收列
Tables("喷涂车间工资表").Cols("姓名").DropTree = tb.Build()

汗，你有认真测试吗？我测试没问题啊。

重置列啊，不触发事件怎么可能计算啊。

测试，没，问，题。你重置姓名列啊。

我测试，没问题。

 引用不过来，说明没系数表没有对应数据啊。

 你要输入 日期、姓名、岗位，才能查到对应的数据啊。

 

 如果没有引用过来，肯定就是你系数表没有对应的数据啊。

如果要把岗位引用，参考

 

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 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#", "日期 desc")
        If fdr IsNot Nothing
            e.DataRow("系数") = fdr("系数")
            e.DataRow("岗位") = fdr("级别")
        Else
            e.DataRow("岗位") = Nothing
            e.DataRow("系数") = Nothing
        End If
End Select