需求是：我是用分页加载“招标信息”表数据，根据“招标信息”表的数据追载“系统编号”表数据，与前面已加载数据进行比较，如没有就追载进来，有了就不追载？
下面代码只加载数据：
Dim ids As String = DataTables("招标信息").GetComboListString("系统编号")
Dim filt As String = "系统编号 In ('" & ids.Replace("|","','") & "')"
DataTables("系统编号").LoadFilter = filt
DataTables("系统编号").Load()
如何批量追载数据？
Dim ids As String = DataTables("招标信息").GetComboListString("系统编号")
Dim filt As String = "系统编号 In ('" & ids.Replace("|","','") & "')"
For Each dr As DataRow In DataTables("系统编号").Select("")
If filt.Contains(dr("系统编号")) = False Then
DataTables("系统编号").AppendLoad(filt,True)
End If
Next
加好友 
发短信
Post By：2019/5/29 15:33:00 [只看该作者]
