Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]EXCEL导出汇总行


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

主题：[求助]EXCEL导出汇总行
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1312 积分：10148 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]EXCEL导出汇总行  发帖心情 Post By：2022/3/14 19:19:00 [只看该作者]


Dim b162 As New CrossTableBuilder("自定义费用汇总",DataTables("自定义费用明细"))
b162.HGroups.AddDef("部门名称")
b162.HGroups.AddDef("事业部")
b162.HGroups.AddDef("月份")
b162.VGroups.AddDef(HZ3)
b162.Totals.AddDef("金额")
b162.HorizontalTotal=True
b162.Subtotal=True
b162.Filter = "(" & filter & ") and 年份 = '" & n1 & "'" 
b162.Build 

Dim dt As Table = Tables("自定义费用汇总")

Dim Book As New  XLS.Book(ProjectPath &  "Attachments\报表.xlsx")
Dim fl As  String = ProjectPath  &  "Reports\报表.xlsx"

Dim Sheet As XLS.Sheet = Book.Sheets(16)
For c As Integer = 0 To dt.Cols.Count -1
    Sheet(0, c+1).Value = dt.Cols(c).Caption
Next
For r As Integer = 0 To dt.Rows.Count - 1
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c+1).Value = dt.rows(r)(c)
    Next
Next

如何将汇总行一起导出来呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


For r As Integer = 0 To dt.Rows.Count(true) - 1
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c+1).Value = dt.rows(r,true)(c)
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1312 积分：10148 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/3/14 21:55:00 [只看该作者]

Dim Style2 As XLS.Style = Book.NewStyle()
Style2.BackColor = Color.SteelBlue 
For r As Integer = 0 To dt.Rows.Count(True) - 1
    For c As Integer = 0 To dt.Cols.Count -1
    If dt.Rows(r, True)("部门名称") Like "*部门小计" Then
         Sheet(0, c+1).Style = Style2
    End If
    Next
Next

想设置汇总行的背景颜色，以上代码未生效，要怎么调整
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Sheet(r +1, c+1).Style = Style2

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


加好友 发短信
等级：六尾狐 帖子：1312 积分：10148 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/3/15 16:57:00 [只看该作者]

Dim Sheet As XLS.Sheet = Book.Sheets(16)
Dim hdr As Integer = dt.HeaderRows
dt.CreateSheetHeader(Sheet,0,0,False)
Dim Style1 As XLS.Style = Book.NewStyle()
Style1.Format = "0.00%" 
For c As Integer = 0 To dt.Cols.Count -1
    For r As Integer = 0 To dt.Rows.Count(True) - 1
        sheet(r + hdr,c+1).value = dt.rows(r,True)(c)
    Next
    If dt.Cols(c).Caption Like "*占比" Then
        Sheet.Cols(c+1).Style = Style1
    End If
Next

上面标黄色部分，怎样对汇总行一样生效
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这个设置的是整列，肯定都有效

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


加好友 发短信
等级：六尾狐 帖子：1312 积分：10148 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/3/15 20:10:00 [只看该作者]

代码1
Dim Sheet As XLS.Sheet = Book.Sheets(16) 
Dim hdr As Integer = dt.HeaderRows 
dt.CreateSheetHeader(Sheet,0,1)
For c As Integer = 0 To dt.Cols.Count -1
If dt.Cols(c).Visible Then
    For r As Integer = 0 To dt.Rows.Count(True) - 1
        sheet(r + hdr,cnt+1).value = dt.rows(r,True)(c)
    Next
cnt = cnt + 1
End If
next

代码2
Dim Sheet2 As XLS.Sheet = Book.Sheets(17)
Dim hdr2 As Integer = dt2.HeaderRows 
dt2.CreateSheetHeader(Sheet2,0,1)
For c As Integer = 0 To dt2.Cols.Count -1
If dt2.Cols(c).Visible Then
    For r As Integer = 0 To dt2.Rows.Count(True) - 1
        sheet2(r + hdr2,cnt+1).value = dt2.rows(r,True)(c)
    Next
cnt = cnt + 1
End If
next

上述代码1和代码2在同一个按钮里，同时导出报表，发现代码1导出来了，代码2只导出了标题，其他内容是空的，然后把代码2改成下面这样又是可以的,会是什么原因呢
Dim Sheet2 As XLS.Sheet = Book.Sheets(17)
Dim hdr2 As Integer = dt2.HeaderRows 
dt2.CreateSheetHeader(Sheet2,0,1,False) 
For c As Integer = 0 To dt2.Cols.Count - 1
    For r As Integer = 0 To dt2.Rows.Count(True) - 1
        sheet2(r + hdr2,c+1).value = dt2.rows(r,True)(c)
    Next
next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

代码1执行后cnt值已经很大了，代码2执行前需要重新赋值为0，重头开始。


代码2
cnt = 0
Dim Sheet2 As XLS.Sheet = Book.Sheets(17)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询