- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问我想同时选择多个数据进行查询应该怎样实现？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93087)
-- 发布时间：2016/11/20 12:05:00
-- 请问我想同时选择多个数据进行查询应该怎样实现？
请问我想同时选择多个数据进行查询应该怎样实现呢？
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2016/11/20 12:07:00
--
比如我想同时查询多个部门的数据
-- 发布时间：2016/11/20 12:23:00
--
比如
Tables("表A").Filter = "部门 in (\'部门1\', \'部门2\', \'部门3\')"
--------------
Dim filter As String = Tables("表A").Filter
filter = iif(filter > "", "(" & filter & ")", "1=1") & " and 部门 in (\'" & e.Form.controls("CheckedListBox1").text.replace(",", "\',\'") & "\')"
-- 发布时间：2016/11/20 12:24:00
--
是用筛选树筛选之后，在此基础上进行查询。可以同时查询多个部门的数据吗？
-- 发布时间：2016/11/20 19:04:00
--
可以，参考3楼。
-- 发布时间：2016/11/20 22:53:00
--
老师!您上面说的代码我不懂啊，请问查询按扭要如何修改呢？
窗口2_查询_Click
Dim Filter As
String
With
e.Form.Controls("出库单号")
If .Value IsNot Nothing Then
Filter = "出库单号 = \'" &
.Value & "\'"
End If
End With
With e.Form.Controls("部门")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And
"
End If
Filter = Filter & "部门 like
\'*" & .Value & "*\'"
End If
End With
-- 发布时间：2016/11/20 22:54:00
--
请问复选列表框和复选组合框有什么区别呢？我现在只用到了组合框 |
-- 发布时间：2016/11/21 9:10:00
--
Dim Filter As String = "1=1"
With e.Form.Controls("出库单号")
If .Value IsNot Nothing Then
Filter = " and 出库单号 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("部门")
If .Value IsNot Nothing Then
Filter = Filter & " and 部门 in (\'" & .text.replace(",", "\',\'") & "\')"
End If
End With
Dim filter1 As String = Tables("表A").Filter
filter = iif(filter1 > "", "(" & filter1 & ")", "1=1") & " and " & filter
msgbox(filter)