筛选订单日期如何可以安年月筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选订单日期如何可以安年月筛选

共有3351人关注过本帖树形打印复制链接主题：筛选订单日期如何可以安年月筛选

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

筛选订单日期如何可以安年月筛选 发帖心情

Post By：2017/5/26 21:38:00 [只看该作者]

Hi 大家好！

我做了一个订单日期筛选，但是它是按年月日筛选，我想做成按年月就可以筛选。还有我只要更改订单日期之后不会在订单日期筛选中出现，要关闭之后才会显视。我应该在那里改程序啦！谢谢大家帮忙啊。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试表.table

有点蓝

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

加好友

发短信

等级：超级版主帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/26 22:27:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试表.table

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

Post By：2017/5/26 22:45:00 [只看该作者]

谢谢，不过我一改订单日期和增加新订单日期还不能自动更新出新筛选项目，应该如何添加代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/26 23:03:00 [只看该作者]

修改后马上保存就可以了。

不想保存的话，就增加一个年月列，然后通过年月列操作

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

Post By：2017/5/27 6:16:00 [只看该作者]

嗯，明白。谢谢

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

Post By：2017/6/16 16:21:00 [只看该作者]

请教，在临时表内如何才能把开始日期至终点日期进行筛选出来

下载信息 [文件大小：下载次数： ]
点击浏览该文件:模拟关联表.rar

此主题相关图片如下：qq截图20170616161922.jpg

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/16 17:52:00 [只看该作者]

Dim filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .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 & "#"
    End If
End With

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("订单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("客户编号")
bd1.Totals.AddDef("数量","总数量") '对数量进行统计
bd1.Totals.AddDef("金额","总")
bd1.Filter = filter
bd1.Totals.AddDef("金额",AggregateEnum.Min,"最小值")
dt1 = bd1.BuildDataSource()
Dim t As Table = Forms("窗口2").controls("Table1").Table
t.DataSource = dt1 '将统计结果绑定到Table

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

Post By：2017/6/17 9:43:00 [只看该作者]

谢谢！

按你代码输入一样没有筛选出来。

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

Post By：2017/6/17 9:44:00 [只看该作者]

查找代码没反应

有点蓝

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

加好友

发短信

等级：超级版主帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/17 10:06:00 [只看该作者]

你是想统计后再按日期范围进行筛选？还是想按日期范围进行统计？

Dim filter As String

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >= #" & .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 & "#"

End If

End With

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("订单"))

Dim dt1 As fxDataSource

bd1.Groups.AddDef("日期", DateGroupEnum.Year, "年")

bd1.Groups.AddDef("日期", "月")

bd1.Groups.AddDef("产品编号")

bd1.Totals.AddDef("数量", "", "数量_值")

bd1.Totals.AddDef("金额", "", "金额_值")

bd1.SamePeriodGrowth = True

bd1.CircleGrowth = True

bd1.Filter = Filter

dt1 = bd1.BuildDataSource()

Dim t As Table = Forms("窗口2").controls("Table1").Table

t.DataSource = dt1 '将统计结果绑定到Table

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

总数 17 1 2 下一页

主题：筛选订单日期如何可以安年月筛选