主题：为什么这段代码无法将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是逻辑列吗？

qgYpz这列是逻辑列

 你的Tables("窗口1_Table1")表设置了筛选了么导致新增了但不显示？

 

 你上传一个具体例子

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

 http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

yichanchu

 做成内部数据源，或者把你的数据库发上来