主题：怎么我的目录树没有了第二子节选项？

上传我的Table文件给你看。

If Forms("窗口3").Opened Then
    Dim tv As WinForm.TreeView
    tv = Forms("窗口3").Controls("TreeView1")
    tv.BuildTree("价格表", "产品名称|工序")
End If

谢谢，改为你的代码不报错了。

    包装车间工资表单价列总要点价格表中的单价列重置后才显示，我看了冲压车间的代码，同样的代码冲压车间却没问题，问题出在哪？

Select Case e.DataCol.name
    Case "产品名称规格", "工序"

        Dim fdr As DataRow = DataTables("价格表").find("产品名称 = '" & e.DataRow("产品名称规格").replace("'", "''") & "' and 工序 = '" & e.DataRow("工序") & "'")
        If fdr IsNot Nothing
            e.DataRow("单价") = fdr("单价")
        End If
End Select

其实不要第三行的代码，变成你现在的代码我也试过，不行才问你的，噫！怎么你又行了，不管怎能样还是要谢谢你。

Select Case e.DataCol.name
    Case "产品名称规格", "工序"

窗口2执行3月份的统计没问题，但执行4月份数据时报错，4月份的数据要统计每天的工时与总金额，不能直接引用。

此主题相关图片如下：捕获.png

你的数据有问题，比如 2016-04-16 的值为【非数字】，导致最后的计算出问题，请修改为正确的值再计算