Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][原创]EXCEL报表取数


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

主题：[求助][原创]EXCEL报表取数
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1402 积分：10865 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助][原创]EXCEL报表取数  发帖心情 Post By：2019/12/26 21:18:00 [只看该作者]

Dim b2 As New SQLGroupTableBuilder("汇总1","成本核算")
b2.C
b2.Groups.AddDef("客户名称") 
b2.Groups.AddDef("性质") 
b2.Groups.AddDef("季度") 
b2.Groups.AddDef("是否退清") 
b2.Totals.AddDef("数量") 
b2.Filter = "金额<>0  And (" & filter & ")" 筛选一
b2.Build 

For Each dr As DataRow In DataTables("汇总1").DataRows ‘筛选二
If dr("季度") <> "A" Then
    If (dr("是否退清") = "否" Or dr("是否退清") ="") Then
        Tables("汇总1").Filter = "(性质 like '%发货' or 性质 like '%退货')" 
    Else
        Tables("汇总1").Filter = "(性质 Like '%发货' or 性质 like '%实际')"
    End If
End If
next

然后在EXCEL报表中引用上述相关数据
[$汇总1,Sum(数量)]
这里取得是上面“筛选一”结果中的数据，还是”筛选二”结果中的数据
[此贴子已经被作者于2019/12/26 21:19:49编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112361 积分：572061 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/27 8:51:00 [只看该作者]

DataTables("汇总1")是分组统计的结果表，DataTables("汇总1").DataRows是这个结果表所有的行，不存在什么筛选

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1402 积分：10865 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2019/12/27 9:25:00 [只看该作者]

那就这么说吧，[$汇总1,Sum(数量)]取得是DataTable还是Table

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112361 积分：572061 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/27 9:32:00 [只看该作者]

execl报表都是从Table取值的

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询