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

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

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

lsy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

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