主题：不重复加载数据代码出错

Dim str As String = DataTables("当年工资库").GetComboListString("_Identify")
Dim idxs As String = str.Replace("|","','")
Dim filt As String = "[_Identify] In ('" & idxs & "')"

DataTables("当年工资库").LoadFilter = iif(DataTables("当年工资库").LoadFilter>"", "(" & DataTables("当年工资库").LoadFilter & ") or " & filt, "")
DataTables("当年工资库").Load()