这样不行吗?Dim dr1 As DataRow
For Each dr As DataRow In DataTables("表B").DataRows
dr1 = DataTables("表A").AddNew
dr1("名称") = dr("名称")
dr1("工序") = "抛光"
dr1("车间") = dr("抛光_车间")
dr1("班组") = dr("抛光_班组")
dr1 = DataTables("表A").AddNew
dr1("名称") = dr("名称")
dr1("工序") = "打磨"
dr1("车间") = dr("打磨_车间")
dr1("班组") = dr("打磨_班组")
Next