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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 天统计

共有2371人关注过本帖树形打印复制链接主题：天统计

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

天统计

Post By：2018/11/17 10:40:00 [显示全部帖子]

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

老师能帮忙看看这个填统计吗？在DateTimePicker1输入日期，然后把表a和表b对应月的天统计到表c

比如DateTimePicker1输入的是2018-10-xx，然后表c的统计时间列，输入2018年10月的1-31日，（就是DateTimePicker1月的每天，）然后表c的数据一和数据二的表a和表b的每天合计

昨天晚上我上次月统计的复制出来改，结果搞了一个晚上也没有搞出来，麻烦了，老师，感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:天统计.table

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/11/17 15:01:00 [显示全部帖子]

能在帮忙看看这个吗？感谢感谢就是没有得到数据的行都为0 感谢感谢

DataTables("日统计").DataRows.Clear

Dim DateTimePicker1 As WinForm.DateTimePicker = Forms("财务汇总窗口").Controls("DateTimePicker11")

Dim d1 As Date = new Date(DateTimePicker1.Value.Year,DateTimePicker1.Value.Month,1)

Dim d2 As Date = d1.AddMonths(1).AddDays(-1)

For i As Integer = 0 To d2.Day - 1

Dim dr As DataRow = DataTables("日统计").AddNew

dr("统计日期") = d1.AddDays(i)

If dr IsNot Nothing Then

dr("收_其它") = DataTables("其它收入").Compute("Sum(收入金额)","收入时间=#" & d1.AddDays(i) & "#")

Else

dr("收_其它") = 0

dr("支_对公") = DataTables("支出账目").Compute("Sum(合计价格)","支出日期=#" & d1.AddDays(i) & "#")

Else

dr("支_对公") = 0

dr("支_对私") = DataTables("支出明细").Compute("Sum(支出金额)","变动日期=#" & d1.AddDays(i) & "#")

Else

dr("支_对私") = 0

End If

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/11/17 15:54:00 [显示全部帖子]

谢谢老师，空白的行还是空白呢，可以设置为没有得到数据的行都为零吗？感谢感谢

比如

dr("统计日期") = d1.AddDays(i)

If dr IsNot Nothing Then

dr("收_其它") = DataTables("其它收入").Compute("Sum(收入金额)","收入时间=#" & d1.AddDays(i) & "#")

Else

dr("收_其它") = 0

在输入时间列不是每天都有，如果没有时间的就默认为0 感谢感谢

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

主题：天统计