Dim idx As String = DataTables("表A").GetComboListString("_Identify", Tables("表A").Filter).Replace("|", ",")If idx > "" Then Tables("表A").Filter = "_Identify not in (" & idx & ")"Else Tables("表A").Filter = ""End If