主题：[求助]关于 复选组合框 的查询公式

如果我的查询界面中存在一个  CheckedComboBox 控件，我以下的查询命令该怎么修改？

此主题相关图片如下：360截图20150831162841306.jpg

vars("查询") = True

Dim flt As String

For Each c As Col In Tables("抢修整治迁改表").Cols

    For Each ctl As WinForm.Control In e.Form.Controls

        If c.Name = ctl.Name Then

            If e.Form.Controls(ctl.Name).Text > "" Then

                If c.IsDate Then

                    flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#"

                ElseIf c.IsString Then

                    flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"

                    

                ElseIf c.IsBoolean AndAlso e.Form.Controls(ctl.Name).Checked Then

                    'msgbox(c.Name)

                    flt + = " And " & c.Name & " = " & e.Form.Controls(ctl.Name).Checked

                    

                End If

            End If

        End If

    Next

Next

If flt > "" Then

    flt = flt.SubString(5)

Else

    MessageBox.Show("请输入查询条件")

End If

Tables("抢修整治迁改表").Filter = flt

vars("查询") = False