- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]excel组合功能如何实现 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=196030)
-- 发布时间：2025/3/24 14:12:00
-- [求助]excel组合功能如何实现
如何在狐表的excel模板中实现excel的这种行列组合功能
此主题相关图片如下：微信图片_20250324141034.png
-- 发布时间：2025/3/24 14:38:00
--
模板没有办法设计这种功能。只能生成报表后手工添加
-- 发布时间：2025/3/31 19:05:00
--
报表事件的BuildDetail事件
Select e.Book.TempLate
Case "分析报表"
Select Case e.Book.CurrentSheetName
Case "品牌汇总"
Dim qjs As List(Of String) = DataTables("档案").GetValues("QJ")
For Each qj As String In qjs
If e.DataRow("QJ") = qj Then
e.Book.Marks("本期费用") = DataTables("汇总").Compute("Sum(本期)", "QJ = \'" & qj & "\'")
End If
Next
End Select
End Select
上面的e.DataRow有多行，如何遍历
-- 发布时间：2025/3/31 20:11:00
--
Select e.Book.TempLate
Case "分析报表"
Select Case e.Book.CurrentSheetName
Case "品牌汇总"
e.Book.Marks("本期费用") = DataTables("汇总").Compute("Sum(本期)", "QJ = \'" & e.DataRow("QJ") & "\'")
End Select
End Select
-- 发布时间：2025/3/31 21:28:00
--
上面代码出来的每行都是同一个数，要每一行设置不同的标记然后每行计算？
此主题相关图片如下：微信图片_20250331212657.png
[此贴子已经被作者于2025/3/31 21:28:51编辑过]
-- 发布时间：2025/3/31 21:36:00
--
……
e.Book.Marks("本期费用折") = DataTables("汇总").Compute("Sum(本期)", "QJ = \'" & e.DataRow("QJ") & "\'")
……
-- 发布时间：2025/4/1 8:49:00
--
模板是不是不能这样设置
此主题相关图片如下：微信图片_20250401084814.png
-- 发布时间：2025/4/1 9:02:00
--
不能这样设置。位置必须在细节区里，才能计算