For Each dr1 As Row In Tables("表A").Rows Dim dr As Row =Tables("表b").Rows.AddNew dr("第一列")=dr1("第一列") dr("第二列")=dr1("第二列") dr("第三列")=dr1("第三列")Next
DataTables("表A").DataRows.Clear()