主题：多行多列的插入数据

If MainTable.Name = "表B"

    DataTables("表B").DataRows.Clear

    For Each dr As DataRow In DataTables("表A").DataRows

        For Each dc As DataCol In DataTables("表A").DataCols

            If dc.Name <> "姓名" AndAlso dr(dc.Name) > 0

                Dim dr1 As DataRow = DataTables("表B").AddNew

                dr1("姓名") = dr("姓名")

                dr1("工序名称") = dc.Name

                dr1("数量") = dr(dc.Name)

            End If

        Next

    Next

End If