主题：自动引用代码整合

师傅你好：

整合下代码：

If e.DataCol.Name = "订单编号" OrElse e.DataCol.Name = "规格尺寸" Then
    Dim dr As DataRow
       dr = DataTables("铁盘订单").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("交货日期")
    Else
        e.DataRow("部门") = Nothing
        e.DataRow("出口国家") = Nothing
        e.DataRow("处理要求") = Nothing
        e.DataRow("出证") = Nothing
        e.DataRow("订单数量") = Nothing
        e.DataRow("交货日期") = Nothing
    End If
End If
If e.DataCol.Name = "订单编号" OrElse e.DataCol.Name = "规格尺寸" Then
    Dim dr As DataRow
        dr = DataTables("木盘订单").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("交货日期")
    Else
         e.DataRow("部门") = Nothing
        e.DataRow("出口国家") = Nothing
        e.DataRow("处理要求") = Nothing
        e.DataRow("出证") = Nothing
        e.DataRow("订单数量") = Nothing
        e.DataRow("交货日期") = Nothing
    End If
End If

If e.DataCol.Name = "订单编号" OrElse e.DataCol.Name = "规格尺寸" Then
    Dim dr As DataRow
      dr = DataTables("木箱订单").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("交货日期")
    Else
        e.DataRow("部门") = Nothing
        e.DataRow("出口国家") = Nothing
        e.DataRow("处理要求") = Nothing
        e.DataRow("出证") = Nothing
        e.DataRow("订单数量") = Nothing
        e.DataRow("交货日期") = Nothing
    End If
End If
只有表名称不同，其它都一样，能整合吗，请师傅帮忙，谢谢！