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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于复选组合框的查询公式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74016)

--  作者：wumingrong1
--  发布时间：2015/8/31 16:29:00
--  [求助]关于复选组合框的查询公式

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

--  作者：大红袍
--  发布时间：2015/8/31 16:47:00
--

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

--  作者：有点蓝
--  发布时间：2015/8/31 16:53:00
--

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 & "%\'"
next
  flt + = "And (" & f & ")"
end if
else
你的代码
end if
end if

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