主题：排序后添入表2

如何做到手动筛选出数据,一键按日期列排序后添入表2

Dim t As Table = Tables("表1")
Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"}
For Each dr As DataRow In t.DataTable.Select(t.Filter, "日期列")
    Dim nr As DataRow = DataTables("表2").AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next

这个还是把表1中所有数据添入了表2,我筛选后执行代码还是把所有的数据添入了表2

 就是你筛选后的啊，如果不是，肯定是你表名写错了，注意主表、窗口表写法的不同

老师这个是把行都添加进去了,怎么能单独把数据添加进去,如果表2行不够自动添加

 添加肯定是要添加行的啊。

 

 你的表不要留空白行，这样是不对的。

不留空行是不行的,因为用了代码,不留空行会出错

老师怎么把单独把数据添到表2,如果行不够自动增加行

 

那就是设计有错，不可能有这种错。有错就要改正。

上次我记得你发过一次单独添加数据的代码,可找不到了,能再告诉我一下吗