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

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

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

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

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/5/1 19:08: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

wealthwind

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

加好友

发短信

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

Post By：2014/5/1 19:28:00 [只看该作者]

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

wealthwind

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

加好友

发短信

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

Post By：2014/5/1 19:43:00 [只看该作者]

老师请查看例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.zip

wealthwind

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

加好友

发短信

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

Post By：2014/5/1 20:18:00 [只看该作者]

有人在吗？帮我看看例子吧

wealthwind

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

加好友

发短信

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

Post By：2014/5/1 20:51:00 [只看该作者]

老师在吗？？我例子已经上了，请帮我看看为什么筛选在空值是，会出现错误

你今天发的代码我试过了，未能形成筛选效果。

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/5/2 8:09:00 [只看该作者]

别人也跟你说过吧，有老帖，同样问题不要发新帖，顶老帖就行了。

你的数据源是SQL数据源，#要改为'

[此贴子已经被作者于2014-5-2 10:02:09编辑过]

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/5/2 8:51:00 [只看该作者]

还是循环方便，不容易出错：

Dim flt As String
For Each o As Object In RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items
    If o.Name.StartsWith("日期输入框") AndAlso o.Value <> Nothing Then
        If o.Name.EndsWith("1") Then
            flt + = " And 日期 >= '" & o.Value & "'"
        ElseIf o.Name.EndsWith("2") Then
            flt + = " And 日期 <= '" & o.Value & "'"
        End If
    End If
Next
If flt > "" Then
    flt = flt.SubString(5)
End If
If e.ToggleButton.Pressed = True Then
    Tables("订单").Filter = flt
End If

下一主题 >> << 上一主题

主题：关于日期筛选，无数据加载时出现的错误。。