主题：复选组合框筛选

 Dim Vals() As String = e.Form.Controls("CheckedComboBox1").Value.Split(",")

    For Val As Integer = 0 To Vals.Length - 1

        If Vals(Val) IsNot Nothing Then

            Filter =  "客户编号 = '" & Vals(Val) & "'"

        End If

    Next

上面的代码我怎么改,只能筛选后一个值,不能两个值同时筛选

筛选合同编号,时间等代码

Dim Filter As String

With e.Form.Controls("CheckedComboBox1")

Dim Ft As String 

Dim Vals() As String = e.Form.Controls("CheckedComboBox1").Value.Split(",")

For Val As Integer = 0 To Vals.Length - 1     

         Ft+ =  ",'"  & Vals(Val) & "'"   

Next

Tables("利息"). Filter =  "客户编号 In (" & Ft.substring(1) & ")"

Tables("查询_Table1"). Filter =  "客户编号 In (" & Ft.substring(1) & ")"

End With

With e.Form.Controls("CheckedComboBox2")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "合同编号 = '" & .Value & "'"

    End If

End With

With e.Form.Controls("DateTimePicker1")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "本期起息日 >= #" & .Value & "#"

    End If

End With

With e.Form.Controls("DateTimePicker2")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "本期结息日 <= #" & .Value & "#"

    End If

End With

If Filter > "" Then

    Tables("利息").Filter = Filter

    Tables("查询_Table1").Filter = Filter

End If

     现在我的代码改成这样的,但是一个问题,在CheckedComboBox1输入多值,可以筛选,在选择单值时,配合CheckedComboBox1可以做到多重筛选.

     问题是,只要做过多重筛选,再在checkedcombobox1里面输入多值,就不能再筛选了.

多值筛选没有结果
此主题相关图片如下：tm截图未命名-2.jpg