老师:使用加载树时,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