差不多应该是这样:
Dim ryid1,ryid2 As List(Of String)
Dim ids As String
ryid1 = DataTables("ry").SQLGetValues("id",filter) '后台筛选后的行 取ID值,因为ID都不重复,使用主键也可以
ryid2 = DataTables("ry").GetValues("id",filter) '前台筛选后的行 ,前台行也可不作筛选,因为是拿后台的行与前台比较
For Each ryid As String In ryid1 '后台的每一行 ID
If ryid2.Contains(ryid)= False Then '如果前台不存在
ids = ids & ",'" & ryid & "'"
End If
Next
ids= ids.Trim(",")
DataTables("ry").AppendLoad("[id] In (" & ids & ")", False) '追载
[此贴子已经被作者于2016/8/23 21:06:54编辑过]