以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选数据时，如果数据符合条件的话显示筛选出的数据，否则数据无误的话输出“数据无误”，怎么实现？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190809)
--  作者：lrh9537
--  发布时间：2024/3/5 17:25:00
--  筛选数据时，如果数据符合条件的话显示筛选出的数据，否则数据无误的话输出“数据无误”，怎么实现？
Dim Filter As String
If e.Form.Controls("RadioButton1").Checked Then
    Filter = "健康状况 Is null"
ElseIf e.Form.Controls("RadioButton2").Checked Then
    Filter = "是否参加大病保险 Is null"

End If

If Filter > "" Then
    Tables("户信息总表").Filter = Filter
Else
    MessageBox.Show("数据无误")
End If

筛选数据时，如果数据符合条件的话显示筛选出的数据，否则数据无误的话输出“数据无误”，怎么实现？
--  作者：有点蓝
--  发布时间：2024/3/5 17:33:00
--  
If Filter > "" Then
    Tables("户信息总表").Filter = Filter
if Tables("户信息总表").rows.count > 0 then
    MessageBox.Show("数据无误")
else
    MessageBox.Show("没有符合条件的数据")
end if
End If