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

 回复7楼，你要重新开始学习代码基础，看懂代码啊。不然全部都是重复的问题啊。

 ...... 嗯嗯，那就慢慢来吧

列属性->禁止重复，设置成False

1、代码

 

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

 

2、重置列可以这样写啊，价格表

 

If e.DataCol.name = "单价" Then
    DataTables("包装车间工资表").datacols("产品名称规格").RaiseDataColChanged("产品名称规格 = '" & e.DataRow("产品名称") & "'")
End If

 

改一改

 

If e.DataCol.name = "单价" Then
    DataTables("包装车间工资表").datacols("产品名称规格").RaiseDataColChanged("产品名称规格 = '" & e.DataRow("产品名称").Replace("'", "''") & "'")
End If

 

你可把工序的代码加上的。你随意。

 你重置价格表的单价列，才能计算啊。

 目录树是否更新，你可以在切换表的时候，也就是MainTableChanged事件，重新生成一次下拉目录树

 e.Form 改成 Forms("窗口1")

 那你改成对应的窗口，我不知道你是哪个。