老师：使用加载树时，B表数据无法引用过去，我的代码需要怎么修改。
父表：
Select Case e.DataCol.Name
Case "物料描述","规格型号","单位","单价"
Dim Filter As String = "[物料代码] = '" & e.DataRow("物料代码") & "'"
Dim drs As List(Of DataRow) = DataTables("工程BOM").Select(Filter)
For Each dr As DataRow In drs
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
Next
End Select
子表：
If e.DataCol.Name = "物料代码" Then '
Dim dr As DataRow
dr = DataTables("物料信息").Find("物料代码 = '" & e.DataRow("物料代码") & "'" )
If dr IsNot Nothing
e.DataRow("物料描述") = dr("物料描述")
e.DataRow("规格型号") = dr("规格型号")
e.DataRow("单位") = dr("单位")
e.DataRow("单价") = dr("单价")
End If
End If
加好友 
发短信
Post By：2018/12/17 8:37:00 [只看该作者]
