主题：请教哪出问题了？

 

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

    怎么姓名目录树不随着更新？2月1日的系数应为空才对。

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

 

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

 

    哦，不好意思，真忘了，定了公式，就不要表列属性设置，删了表列属性设置，更新马上执行了，谢谢，我总是懒动脑筋来问你，笨死了！

   应该是系数表的表属性少了一个日期条件，我不知怎么写，请教中。
此主题相关图片如下：捕获.png

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()

    目录树里没系数啊，只是数据源和接收列有系数。