主题：跨表引用问题

首先根据产品名称查找到对应的行dr，然后根据工序栏获取值

Select Case e.DataCol.name
    Case "产品名称", "工序"
        Dim fdr As DataRow = DataTables("产品").Find("产品名称 = '" & e.DataRow("产品名称") & "'")
        If fdr IsNot Nothing Then
            If fdr.DataTable.datacols.contains(e.DataRow("工序") & "单价") Then
                e.DataRow("单价") = fdr(e.DataRow("工序") & "单价")
            Else
                msgbox("不存在列"& e.datarow("工序") & "单价")
            End If
        End If
End Select