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

      我在窗口中添加一个查询表，该查询表用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'"

 

用户姓名 not In (" & ids & ")

 

       生成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楼的代码

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

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

 

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

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

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

     dim idx as string = AAAA,BBB,CCC

 idx.Replace("'", "")