关于日期筛选，无数据加载时出现的错误。。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于日期筛选，无数据加载时出现的错误。。

共有4075人关注过本帖树形打印复制链接主题：关于日期筛选，无数据加载时出现的错误。。

wealthwind

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00

关于日期筛选，无数据加载时出现的错误。。 发帖心情

Post By：2014/5/1 18:53:00 [显示全部帖子]

筛选菜单的

PressedChanged代码是

If e.ToggleButton.Pressed = True Then

Tables("订单").Filter = "[日期] >= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框1").value & "# And [日期] <= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框2").value & "#"

Else

Tables("订单").Filter = ""

End If

如果在无数据情况下，点击，就会出现图示错误~~~
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140501184655.png

wealthwind

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00

Post By：2014/5/1 19:28:00 [显示全部帖子]

Dim sdt As Date = RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框1").value
Dim edt As Date = RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框2").value
Dim flt As String
If sdt <> Nothing Then
    flt + = " And 日期 >= #" & sdt & "#"
ElseIf edt <> Nothing Then
    flt + = " And 日期 <= #" & edt & "#"
End If
If flt > "" Then
    flt = flt.SubString(5)
End If
If e.ToggleButton.Pressed = True Then
    Tables("订单").Filter = flt
End If

这段，代码，筛选无效~~