按时间、日期的交叉统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按时间、日期的交叉统计问题

共有5705人关注过本帖树形打印复制链接主题：按时间、日期的交叉统计问题

onlinech

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

等级：幼狐帖子：105 积分：1199 威望：0 精华：0 注册：2017/6/10 10:52:00

按时间、日期的交叉统计问题 发帖心情

Post By：2022/12/26 16:20:00 [显示全部帖子]

1、在按小时、日期作交叉统计时，发现如果小时或日期没有数据的话将没有统计的行或列

2、日期如何使其按日期顺序排列，如30日、31日、1日、2日

数据库内容：

此主题相关图片如下：搜狗截图20221226161042.png

交叉后结果：

此主题相关图片如下：搜狗截图20221226160914.png

想要的结果：如何按标颜色的行列自动添加上去？

此主题相关图片如下：搜狗截图20221226161057.png

onlinech

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

等级：幼狐帖子：105 积分：1199 威望：0 精华：0 注册：2017/6/10 10:52:00

Post By：2022/12/26 17:16:00 [显示全部帖子]

那小时呢？除了手工添加之外，有没有其它办法？

onlinech

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

等级：幼狐帖子：105 积分：1199 威望：0 精华：0 注册：2017/6/10 10:52:00

Post By：2022/12/28 16:26:00 [显示全部帖子]

写了个手工增加缺少的行，但是编译的时候报错（标颜色的地方）

Dim t, r As Integer

Dim dr As Row

For r = 0 To 23

t = Tables("小时统计").Rows.Count '计算表的行数

dr = Tables("小时统计").Find("时 = r", "时")

If dr Is Nothing Then '如果没找到的话

Tables("小时统计").AddNew()

Tables("小时统计").Rows(t)("时") = r

End If

此主题相关图片如下：搜狗截图20221228162307.png

主题：按时间、日期的交叉统计问题