- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 筛选问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132687)
-- 发布时间：2019/3/27 14:35:00
-- 筛选问题
此主题相关图片如下：企业微信截图_20190327142910.png
老师好 请问我这个代码该怎么写，如图，我做了一个查询的功能，当我在部门选择财务部的时候 点击开始查询则会出现财务部的数据，现在我想做到的是 当我选择其他部门，比如我选择供应部，但是供应部是没有数据的 我希望筛选没有数据的部门时 会弹出对话框的提示 请问怎么写
此主题相关图片如下：企业微信截图_20190327142835.png
我写的 开始查询代码：
Dim Filter As String
With e.Form.Controls("部门")
If .Value IsNot Nothing Then
Filter = "部门 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("SSID号")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "SSID号 = \'" & .Value & "\'"
End If
End With
If Filter > "" Then
Tables("主窗体_WIFI").Filter = Filter
End If
-- 发布时间：2019/3/27 14:41:00
--
Dim Filter As String
With e.Form.Controls("部门")
If .Value IsNot Nothing Then
Filter = "部门 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("SSID号")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "SSID号 = \'" & .Value & "\'"
End If
End With
Tables("主窗体_WIFI").Filter = Filter
If Tables("主窗体_WIFI").rows.count = 0 Then
msgbox("没有数据")
End If
-- 发布时间：2019/3/27 15:01:00
--
谢谢老师