weui的list界面如何按日期字段的月来分组汇总？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → weui的list界面如何按日期字段的月来分组汇总？

共有3710人关注过本帖树形打印复制链接主题：weui的list界面如何按日期字段的月来分组汇总？

有点蓝

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

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

Post By：2021/2/8 22:35:00 [显示全部帖子]

请上传实例说明

有点蓝

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

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

Post By：2021/2/9 9:14:00 [显示全部帖子]

数据库无法还原测试。不过大概知道您的意思了

1，2、查询一下数据库大于当前页的数据是否还有本页月份的数据，如果没有，在最后加上小计的代码

3、改为后台统计，Compute改为SQLCompute，或者直接使用sql统计

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

有点蓝

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

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

Post By：2021/2/9 11:24:00 [显示全部帖子]

Dim drs As List(Of DataRow) = dt.Select("","日期 desc")

If drs.Count > 0 Then

Dim y,m As Integer

Dim dt1,dt2 As Date

Dim r As DataRow = drs(0)

With .Body.AddRow(r("日期"),r("总费用"),r("预存扣"),r("手续费"),r("线下"),r("提现"))

.Primarykey = r("memid") '设置主键

End With

For i As Integer = 1 To drs.count - 1

r = drs(i)

Dim lr As DataRow = drs(i-1)

If r("日期").year <> lr("日期").year OrElse r("日期").month <> lr("日期").month Then

'Totalfee = dt.compute("sum(总费用)")

y = lr("日期").year '指定年份

m = lr("日期").month '指定月份

总数 14 上一页 1 2

主题：weui的list界面如何按日期字段的月来分组汇总？