主题：数据合并

With Tables("提取工艺")

    If .Rows.Count > 0 Then

        Dim dr As Row = .Rows( .TopPosition )

        Dim drnew As Row = Tables("提取产品成本表").AddNew

        drnew("存货名称") = dr("存货名称")

        '其它字段赋值

        Dim acount As Double

        For i As Integer = .TopPosition To .BottomPosition

            acount += .Rows(i)("金额")

        Next

        drnew("流转金额") = acount

    End If

End With