主题：如何用代码实现把交叉统计的临时表的内容复制到正式表中？

DataTables("产值统计表").DataRows.Clear

For Each dr1 As DataRow In DataTables("统计表1").DataRows

    Dim dr2 As DataRow = DataTables("产值统计表").AddNew()

    For Each dc As DataCol In DataTables("统计表1").datacols

        If DataTables("产值统计表").datacols.contains(dc.caption) Then

            dr2(dc.caption) = dr1(dc.name)

        ElseIf DataTables("产值统计表").datacols.contains(dc.name) Then

            dr2(dc.name) = dr1(dc.name)

        End if

    Next

Next