主题：为什么这段代码无法将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

甜老师，我没理解你的意思。

qgYpz这列是逻辑列

甜老师，已上传。请指教。

yichanchu

甜老师，附件已改为内部数据源。

甜老师，这是确认转好了。

啊，我傻了，数据表里没打上勾。谢谢甜老师的点化。