主题：目录树双击筛选

修改了[材料]表的"单价",[用料]表的单价为什么不更新呢?以下是[材料]表属性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