下面追载数据代码是对的：Dim str As String = DataTables("当年工资库").GetComboListString("_Identify")
Dim idxs As String = str.Replace("|","','")
Dim filt As String = "[_Identify]
Not In ('" & idxs & "')"
DataTables("当年工资库").AppendLoad(filt)
但下面代码执行时，原有数据不见了，需求是效果跟上面代码一样，如何调整下面代码？
Dim str As String = DataTables("当年工资库").GetComboListString("_Identify")
Dim idxs As String = str.Replace("|","','")
Dim filt As String = "[_Identify] Not In ('" & idxs & "')"
If DataTables("当年工资库").Find(filt) Is Nothing Then
'DataTables("当年工资库").LoadFilter = DataTables("当年工资库").LoadFilter
DataTables("当年工资库").LoadFilter = filt
DataTables("当年工资库").Load()
End If
加好友 
发短信
Post By：2019/4/14 23:47:00 [显示全部帖子]
