主题：汇总

参考代码

Dim Cols1() As String = {"业务","分组","品牌","一月_数量","一月_金额","四月_数量","四月_金额"}
Dim Cols2() As String = {"业务","分组","品牌","1月_数量","1月_金额","4月_数量","4月_金额"}

Dim dic As new Dictionary(Of String, String)
For Each c As Col In Tables("统计表1").Cols
    dic.Add(c.Caption, c.name)
Next

For Each dr1 As DataRow In DataTables("统计表1").Select("")
    Dim dr2 As DataRow = DataTables("订单汇总").AddNew()
    For i As Integer = 0 To Cols2.Length -1
        If dic.ContainsKey(Cols2(i)) Then
            dr2(Cols1(i)) = dr1(dic(Cols2(i)))
        End If
    Next
Next