按什么条件筛选的,如果新增的行没有录入符合这个条件的数据,是不会显示的。取消筛选就有了
Dim xzb As Table =Args(0)'选择窗口
Dim szl() As String =Args(1)'赋值列
Dim xrb As Table = Args(2) '写入表
xrb.stopRedraw
Dim r As Row
For Each dr As DataRow In xzb.DataTable.Select("","", DataRowState.Modified)
r = xrb.AddNew
For Each s As String In szl
r(s) = dr(s)
Next
Next
xrb.resumeRedraw
xrb.DataTable.Save()
xzb.DataTable.AcceptChanges()