主题：为什么这段代码无法将qgList表中的已勾选数据行复制到Tables("窗口1_Table1")

 Dim Cols1() As String = {"qgDjh","qgJhh","qgItemID","qgItemName","qgItemNameJap","qgItemSPEC","qgsl","qgdhTime"}
Dim Cols2() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列"}
For Each dr1 As DataRow In DataTables("qgList").Select("qgYpz = true")
    Dim dr2 As Row = Tables("窗口1_Table1").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next