Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

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

1楼
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编辑过]
2楼
有点蓝 发表于:2024/5/6 9:25:00
With e.Form.Controls("ComboBox3")
    e.Form.Controls("ComboBox4").Value = Nothing
    If .Value IsNot Nothing andalso .Value <> "全部" Then
……
3楼
lrh9537 发表于:2024/5/6 9:34:00
第一个“户类型”全部可以查询,第二个“易返贫致贫户监测对象类型”查询不了

另外,

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

   这个代码在点击后当前内容也清空不显示了 e.Form.Controls("ComboBox4").Value = Nothing
4楼
有点蓝 发表于:2024/5/6 9:39:00
【第一个“户类型”全部可以查询,第二个“易返贫致贫户监测对象类型”查询不了】 -- 一样的用法,参考2楼的方式自行改改

内容清除的到这些控件的enter事件处理
5楼
lrh9537 发表于:2024/5/6 9:55:00
查询出来的“全部”为所有数据,不是“户类型”为“脱贫户、脱贫不享受政策户”的全部数据,这个该怎么改?
6楼
有点蓝 发表于:2024/5/6 10:01:00
没看懂,前面说所有数据,后面又说不是某某类型的数据,前后矛盾
7楼
lrh9537 发表于:2024/5/6 10:10:00
户类型列有如下字符串:脱贫户、脱贫不享受政策户,农户
此处查询“全部”为包括户类型为脱贫户、脱贫不享受政策户的数据


[此贴子已经被作者于2024/5/6 11:04:58编辑过]
8楼
有点蓝 发表于:2024/5/6 10:13:00
就是2楼的用法
9楼
有点蓝 发表于:2024/5/6 10:14:00
全部不包含“农户”?
10楼
lrh9537 发表于:2024/5/6 10:18:00
不包含“农户”的话怎么改?
共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04004 s, 2 queries.