我在窗口中添加一个查询表，该查询表用FILL的方法从“用户表”在打开窗口时只加载表结构。

      同时，在窗口添加一个组合框，点击组合框，下拉列表的数据项为“部门名称”，选中其中“部门名称”，

从“用户表”按“部门名称”进行加载该部门下的用户。组合框的SelectedIndexChanged代码如下，系统代码出错，

提示“至少缺一个参数”。我知道是And 用户姓名 not In (" & ids & ") 有问题，去掉此句，一切正常。

      但我想将ids 出现过的用户过滤掉，不知如何去做？

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

    Dim ids As String  = Vars("checkeduser")

   If ids > " " Then

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

        .Load()

    Else

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

        .Load() 

    End If

End With

你的ids生成有问题。

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

       生成IDS 的代码如下：

Dim ids As String

With Tables("用户选择临时表")

        For Each dr As Row In .Rows

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

        Next

        ids= ids.Trim(",")

        If Forms("新建任务窗口").Opened Then

            Dim s As String = Vars("fn")

            Select Case s

                Case 1 \'责任人

                    Dim tx As WinForm.TextBox = Forms("新建任务窗口").Controls("TextBox4")

                    tx .Value  = ids

                Case 2 \'参与人

                    Dim tx As WinForm.TextBox = Forms("新建任务窗口").Controls("TextBox5")

                    tx .Value  = ids

             End Select

        End If

        Vars("checkeduser") = Vars("checkeduser") & "," & ids   \'将本次已选用户加入已选用户变量中

        Vars("checkeduser")= Vars("checkeduser").Trim(",")

  End With

改一下

        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

   按4楼 我试了一下，出现‘张三’，，’李四’，重复（，，）

我将ids = ids & "\'" & dr("用户姓名") & "\'," 改为ids = ids & "\'" & dr("用户姓名") "\'"，

只出现一个（，），但试一下，还是不行。

  我再试一下5楼的代码

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

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

    我又试了一下。可以了，谢谢！

    我还有一个问题，我想将如下ids 变成\'AAAA\',\'BBB\',\'CCC\'，怎么写代码？

     dim idx as string = AAAA,BBB,CCC