主题：[求助]多列跨表有条件引用

1、StartEdit事件

Select Case e.Col.name
    Case "Ⅰ级包装_包装材料一_长", "Ⅰ级包装_包装材料一_宽", "Ⅰ级包装_包装材料一_高", "Ⅰ级包装_包装材料一_纸箱", "Ⅰ级包装_包装材料一_重量"
        Dim dr As DataRow = DataTables("包材数据库").Find("[包材编码] = '" & e.Row("Ⅰ级包装_包装材料一_编码") & "'")
        If dr IsNot Nothing
            e.cancel = True
        End If
End Select

2、

Select Case e.DataCol.Name
    Case "外尺寸_长","外尺寸_宽","外尺寸_高","重量"
        Dim Filter As String = "[Ⅰ级包装_包装材料一_编码] = '" & e.DataRow("包材编码") & "'"
        Dim drs As List(Of DataRow) = DataTables("数据库").Select(Filter)
        For Each dr As DataRow In drs
            dr("Ⅰ级包装_包装材料一_长") = e.datarow("外尺寸_长")
            dr("Ⅰ级包装_包装材料一_宽") = e.datarow("外尺寸_宽")
            dr("Ⅰ级包装_包装材料一_高") = e.datarow("外尺寸_高")
        Next
End Select