主题：自动引用代码整合

自己想当然想的，没有创建表去测试：

Select Case e.DataCol.Name
    Case "订单编号", "规格尺寸"
        Dim dr As DataRow
        Dim names() As String = {"铁盘订单","木盘订单","木箱订单"}
        For Each name As String In names '按顺序遍历表
            dr = DataTables(name).Find("[订单编号] = '" & e.DataRow("订单编号") & "' And [规格尺寸] = '" & e.DataRow("规格尺寸") & "'")
            If dr IsNot Nothing Then '如果三个表中按顺序某表有此数据行
                e.DataRow("部门") = dr("部门")
                e.DataRow("出口国家") = dr("出口国家")
                e.DataRow("处理要求") = dr("处理要求")
                e.DataRow("出证") = dr("出证")
                e.DataRow("订单数量") = dr("订单数量")
                e.DataRow("交货日期") = dr("交货日期")
                Exit For '退出循环
            End If
        Next
        If dr Is Nothing Then '如果最终没有这一行
            e.DataRow("部门") = Nothing
            e.DataRow("出口国家") = Nothing
            e.DataRow("处理要求") = Nothing
            e.DataRow("出证") = Nothing
            e.DataRow("订单数量") = Nothing
            e.DataRow("交货日期") = Nothing
        End If
End Select