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

      我在窗口中添加一个查询表，该查询表用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 的代码如下：

 

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

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

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

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

 

  我再试一下5楼的代码

      我试了一下5楼的代码，系统不报错了，但仍没有将已有的用户（IDS中）过滤掉，请甜老师再看一下！

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

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

     dim idx as string = AAAA,BBB,CCC

    甜老师，我说的是反过来，将AAAA,BBB,CCC变为成'AAAA','BBB','CCC'

  甜老师，有两个字符串变量，格式不太一样，和我上面的有点关系，

我想做的是若s2中有s1，则删除s2中有关s1： 

Dim s1 String = "张三"  's1可能是李四或王五

Dim s2 String = "'张三','李四','王五'"

If  s2 > "" AndAlso s2.Contains("&s1&") Then

 代码（不知如何写）：将s2中的的s1删除,s2 = "'李四','王五'"

End If

 

 

 在问一下bin老师，

If  s2 > "" AndAlso s2.Contains("&s1&") Then

 

这一句中红色部分代码对吗？

   在问一下bin老师，

If  s2 > "" AndAlso s2.Contains("&s1&") Then 

红色部分想动态引用，不知对不对？

    好的，我知道了