[求助]关于复选组合框的查询公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如果我的查询界面中存在一个 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

If flt > "" Then

flt = flt.SubString(5)

Else

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

End If

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

vars("查询") = False

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
                    If typeof ctl Is WinForm.CheckedComboBox Then
                        flt + = " And " & c.Name & " in ('" & e.Form.Controls(ctl.Name).Text.replace(",", "','") & "')"
                    Else
                        flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"
                    End If

                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

If c.Name = ctl.Name Then

if TypeOf ctl is WinForm.CheckedComboBox Then

if e.Form.Controls(ctl.Name).Text > "" then

dim s() as string = e.Form.Controls(ctl.Name).Text.Split(",")

dim f as string = "1=2"

for each s1 as string in s

f + = " Or " & c.Name & " Like '%" & s1 & "%'"

flt + = "And (" & f & ")"

end if

else

你的代码

end if

[此贴子已经被作者于2015/8/31 16:54:17编辑过]

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

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