主题：目录树双击筛选

没问题了,我再慢慢消化和优化。

修改了[材料]表的"单价",[用料]表的单价为什么不更新呢?以下是[材料]表属性DataColChanged事件代码

 

Select Case e.DataCol.Name
    Case "材料分类","材料名称","型号规格"
        Dim crs As List(of DataRow) = e.DataRow.GetChildRows("用料")
        For Each cr As DataRow In crs
            cr("单价") = e.DataRow("单价")
        Next
End Select

狐表贤弟啊～     你就没有对单价列来触发事件嘛：

Select Case e.DataCol.Name
    Case "单价"
        Dim crs As List(of DataRow) = e.DataRow.GetChildRows("用料")
        For Each cr As DataRow In crs
            cr("单价") = e.DataRow("单价")
        Next
End Select

如果你采用了关联，而且通过这三列关联的，那么下面的代码是不需要的：

 

Select Case e.DataCol.Name
    Case "材料分类","材料名称","型号规格"
        Dim crs As List(of DataRow) = e.DataRow.GetChildRows("用料")
        For Each cr As DataRow In crs
            cr("单价") = e.DataRow("单价")
        Next
End Select

 

因为子表关联列会自动更新，只有单价才需要啊：

 

Select Case e.DataCol.Name
    Case "单价"
        Dim crs As List(of DataRow) = e.DataRow.GetChildRows("用料")
        For Each cr As DataRow In crs
            cr("单价") = e.DataRow("单价")
        Next
End Select

 

不管有多少个单价这样的子表列需要更新，都只需同样的代码，例如子表A、B、C、D四列需要从父表继承：

 

Select Case e.DataCol.Name
    Case "a","b","c","d"
        Dim crs As List(of DataRow) = e.DataRow.GetChildRows("用料")
        For Each cr As DataRow In crs
            cr(e.DataCol.name) = e.DataRow(e.DataCol.Name)
        Next
End Select

 

你改不改都无所谓了，我上午修正了一下程序，让子表引用父表数据基本不影响父表的筛选和排序操作，至少影响非常轻微。