主题：将在一窗口内表中选中的数据添加到另一窗口的表中

For Each dr1 As DataRow In DataTables("实验1_table1").Select("选择 = true")

    Dim dr2 As DataRow = DataTables("实验").AddNew()

    For Each dc As DataCol In DataTables("实验1_table1").DataCols

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

    Next

Next

窗口“实验”和“实验1”中的表均为“实验”

就是想将在窗口“实验1”的表中选中的行，添加到窗口“实验”的表中

运行后出现这情况

求正确代码，先行谢谢大大们了