主题：[求助]窗口中的下拉列表的筛选

你的ids生成有问题。

你的ids必须是这种形式的，比如 idx = "'AAAA','BBB','CCC'"

改一下

        For Each dr As Row In .Rows

            ids = ids & "'" & dr("用户姓名") & "',"

        Next

        ids= ids.Trim(",")

或者，你前面不用改，你最后的代码改一下

With DataTables("人员添加窗口2_Table1")

    Dim ids As String  = Vars("checkeduser")

   If ids > " " Then

        .LoadFilter = "部门名称 = '" & e.Sender.Value & "' And 用户姓名 not In ('" & ids.Replace(",", "','") & "') "

        .Load()

    Else

        .LoadFilter = "部门名称 = '" & e.Sender.Value & "'"

        .Load() 

    End If

End With

 回复7楼，没有理由，例子发上来

 你msgbox(DataTables("人员添加窗口2_Table1").LoadFilter)看看条件是否设置正确。

idx = "'" & idx.Replace(",", "','") & "'"