以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  filter筛选不到任何数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126153)
--  作者：cyrollin
--  发布时间：2018/10/15 17:50:00
--  filter筛选不到任何数据
Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "姓名 like \'%" & .Value & "%\'"
        vars("姓名") = .Value
    End If
End With

With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
        vars("起始日期") = .Value
    End If
End With

With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
        vars("终止日期") = .Value
    End If
End With

If Filter > "" Then
    Tables("表A").Filter = Filter
Else
    MessageBox.Show("请输入姓名,起始日期和终止日期进行查询.")  
End If

‘ 如果输入了三个条件：姓名，起始日期，终止日期，但是没有筛选到任何数据的信息提示， 语句怎么写呢？
--  作者：有点甜
--  发布时间：2018/10/15 18:09:00
--  
If Filter > "" Then
    Tables("表A").Filter = Filter
    If Tables("表A").rows.count = 0 then
        msgbox("没有数据")
    End If
Else
    MessageBox.Show("请输入姓名,起始日期和终止日期进行查询.")  
End If
--  作者：cyrollin
--  发布时间：2018/10/16 9:41:00
--  
哦，如果没有查到数据，表A就显示空白，然后提示：

.NET Framework 版本：2.0.50727.8825
Foxtable 版本：2018.9.9.1
错误所在事件：表A,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。

可能是CURRENTCHANGED事件里面，如果表A存在空白行，就会影响该事件的某代码执行。 筛选结果的那段代码还可以优化一下吗？TIANTIAN....
--  作者：有点蓝
--  发布时间：2018/10/16 9:51:00
--  
表A,CurrentChanged事件代码有问题，贴出代码看看。

和筛选没有关系