主题：统计的数据复制到另外一个表

Dim Cols1() As String = {"订单日期","订单核算_销售额","订单核算_采购价","订单核算_利润"}
Dim Cols2() As String = {"发生时间","销额统计","采购价格","剩余利润"}
For Each dr1 As DataRow In DataTables("订单附表").Select("订单核算_销售额 <> 0")
    Dim dr2 As DataRow = DataTables("经营汇总").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

Dim Cols3() As String = {"支出日期","支出金额"}
Dim Cols4() As String = {"发生时间","收回资金"}
For Each dr1 As DataRow In DataTables("回款记录").Select("支出金额 <> 0")
    Dim dr2 As DataRow = DataTables("经营汇总").AddNew()
    For i As Integer = 0 To Cols3.Length -1
        dr2(Cols4(i)) = dr1(Cols3(i))
    Next
Next