以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  户类型为“全部”时,怎么查询?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191723)

--  作者:lrh9537
--  发布时间:2024/5/6 9:21:00
--  户类型为“全部”时,怎么查询?


户类型为“全部”时,怎么查询?


Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "乡镇 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "行政村 = \'" & .Value & "\'"
    End If
End With

With e.Form.Controls("ComboBox3")
    e.Form.Controls("ComboBox4").Value = Nothing
    If .Value IsNot Nothing Then
        
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "户类型 = \'" & .Value & "\'"
    End If
End With

[此贴子已经被作者于2024/5/6 9:43:48编辑过]

--  作者:有点蓝
--  发布时间:2024/5/6 9:25:00
--  
With e.Form.Controls("ComboBox3")
    e.Form.Controls("ComboBox4").Value = Nothing
    If .Value IsNot Nothing andalso .Value <> "全部" Then
……

--  作者:lrh9537
--  发布时间:2024/5/6 9:34:00
--  
第一个“户类型”全部可以查询,第二个“易返贫致贫户监测对象类型”查询不了

另外,

点击
"ComboBox3",ComboBox4内容清除,"ComboBox3"的内容显示,
点击"ComboBox4",ComboBox3内容清除,"ComboBox4"的内容显示,

   这个代码在点击后当前内容也清空不显示了 e.Form.Controls("ComboBox4").Value = Nothing

--  作者:有点蓝
--  发布时间:2024/5/6 9:39:00
--  
【第一个“户类型”全部可以查询,第二个“易返贫致贫户监测对象类型”查询不了】 -- 一样的用法,参考2楼的方式自行改改

内容清除的到这些控件的enter事件处理

--  作者:lrh9537
--  发布时间:2024/5/6 9:55:00
--  
查询出来的“全部”为所有数据,不是“户类型”为“脱贫户、脱贫不享受政策户”的全部数据,这个该怎么改?
--  作者:有点蓝
--  发布时间:2024/5/6 10:01:00
--  
没看懂,前面说所有数据,后面又说不是某某类型的数据,前后矛盾
--  作者:lrh9537
--  发布时间:2024/5/6 10:10:00
--  
户类型列有如下字符串:脱贫户、脱贫不享受政策户,农户
此处查询“全部”为包括户类型为脱贫户、脱贫不享受政策户的数据


[此贴子已经被作者于2024/5/6 11:04:58编辑过]

--  作者:有点蓝
--  发布时间:2024/5/6 10:13:00
--  
就是2楼的用法
--  作者:有点蓝
--  发布时间:2024/5/6 10:14:00
--  
全部不包含“农户”?
--  作者:lrh9537
--  发布时间:2024/5/6 10:18:00
--  
不包含“农户”的话怎么改?