Foxtable(狐表)用户栏目专家坐堂 → [求助]关于多表统计


  共有2115人关注过本帖树形打印复制链接

主题:[求助]关于多表统计

帅哥哟,离线,有人找我吗?
紫色幽魂
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:5382 威望:0 精华:0 注册:2015/1/23 0:31:00
[求助]关于多表统计  发帖心情 Post By:2017/8/2 23:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:5.png
图片点击可在新窗口打开查看
我想在菜单这儿通过输入日期并确定生成下面这种表

图片点击可在新窗口打开查看此主题相关图片如下:6.png
图片点击可在新窗口打开查看
如果人员表内的入住时间大于菜单输入的时间15天就进行平均计算,没有达到天数就不计算,弄了一晚上,从统计报表那儿就卡着了,请大神帮忙看看,这个需要怎么解决
http://pan.baidu.com/s/1pKIWfDD

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/2 23:44:00 [只看该作者]

参考,水费自己参考着改。

 

Dim d As Date = Date.Today
Dim dt As DataTable = DataTables("汇总")
Dim dt1 As DataTable = DataTables("电表")
Dim dt2 As DataTable = DataTables("人员")
Dim dt3 As DataTable = DataTables("单价")

dt.DataRows.clear
For Each fh As String In dt2.GetValues("房号", "入住日期 <= #" & d.AddDays(-15) & "#")
    Dim dr1 As DataRow = dt1.find("房号 = '" & fh & "'")
    Dim drs2 = dt2.Select("房号 = '" & fh & "'")
    For Each dr As DataRow In drs2
        Dim ndr As DataRow = dt.addnew
        ndr("房号") = fh
        ndr("宿舍人员") = dr("姓名")
        ndr("性别") = dr("性别")
        ndr("部门车间班组") = dr("部门")
        ndr("入住日期") = dr("入住日期")
        If dr1 IsNot Nothing Then
            ndr("栋数及楼层") = dr1("栋数及楼层")
            ndr("用量_电量") = dr1("当月使用量")
            ndr("金额_电费") = dr1("金额")
        End If
        ndr("个人承担费用") = ndr("金额_电费") / drs2.count
    Next
Next


 回到顶部
帅哥哟,离线,有人找我吗?
紫色幽魂
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:5382 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点甜)参考,水费自己参考着改。 ...  发帖心情 Post By:2017/8/3 22:55:00 [只看该作者]

非常感谢

 回到顶部