主题：排序后添入表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，可以将DataRowAdding事件的代码设置为：

 

e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1

  此列，必须是数值列。不能是字符列