主题：目录树双击筛选

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

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