Foxtable(狐表)用户栏目专家坐堂 → 汇总模式下如何导出汇总行


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

主题:汇总模式下如何导出汇总行

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


加好友 发短信
等级:狐神 帖子:6887 积分:43621 威望:0 精华:0 注册:2009/3/2 14:07:00
汇总模式下如何导出汇总行  发帖心情 Post By:2022/3/29 7:51:00 [只看该作者]

如题

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/29 8:44:00 [只看该作者]

导出哪里?

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


加好友 发短信
等级:狐神 帖子:6887 积分:43621 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2022/3/29 9:09:00 [只看该作者]

导出到excel(不是excel报表)

Dim tbl As Table =
Dim
hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim
cnt As Integer
Dim
Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet)
'生成表头
For
c As Integer = 0 To tbl.Cols.Count - 1
    If tbl.Cols(c).Visible Then
       
For r As Integer = 0 to tbl.Rows.Count - 1
            sheet(r + hdr,cnt).value = tbl(r,c)
       
Next
        cnt = cnt +
1
    End If
Next

Book
.Save("c:\reports\test.xls")
Dim
Proc As New Process
Proc.File =
"c:\reports\test.xls"
Proc.Start()


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/29 9:19:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/1594.htm

遍历的时候加上true参数即可

        For r As Integer = 0 to tbl.Rows.Count(true) - 1
            sheet(r + hdr,cnt).value = tbl.rows(r,true)(c)
        
Next

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


加好友 发短信
等级:狐神 帖子:6887 积分:43621 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2022/3/29 10:51:00 [只看该作者]

运行窗口1,导不出汇总行
[此贴子已经被作者于2022/3/29 10:51:23编辑过]

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


加好友 发短信
等级:狐神 帖子:6887 积分:43621 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2022/3/29 10:52:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/29 11:27:00 [只看该作者]

那是合计不是汇总,不是一回事

合计在正常导出后,最后增加一行,使用compute统计

For c As Integer = 0 To tbl.Cols.Count - 1
    If tbl.Cols(c).Visible Then
        
For r As Integer = 0 to tbl.Rows.Count - 1
            sheet(r + hdr,cnt).value = tbl(r,c)
        
Next
        cnt = cnt + 
1
    End If
if tbl.Cols(c).name = “需要合计的列比如金额” then
sheet(tbl.Rows.Count + hdr,cnt).value = tbl.compute("sum(金额)")
endif
Next


 回到顶部