Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共8 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]excel组合功能如何实现

1楼
lgj716330 发表于:2025/3/24 14:12:00
如何在狐表的excel模板中实现excel的这种行列组合功能

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20250324141034.png
图片点击可在新窗口打开查看

2楼
有点蓝 发表于:2025/3/24 14:38:00
模板没有办法设计这种功能。只能生成报表后手工添加
3楼
lgj716330 发表于: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有多行,如何遍历
4楼
有点蓝 发表于: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
5楼
lgj716330 发表于:2025/3/31 21:28:00
上面代码出来的每行都是同一个数,要每一行设置不同的标记然后每行计算?

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20250331212657.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2025/3/31 21:28:51编辑过]
6楼
有点蓝 发表于:2025/3/31 21:36:00
……
e.Book.Marks("本期费用折") = DataTables("汇总").Compute("Sum(本期)", "QJ = '" & e.DataRow("QJ") & "'")
……
7楼
lgj716330 发表于:2025/4/1 8:49:00
模板是不是不能这样设置

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20250401084814.png
图片点击可在新窗口打开查看

8楼
有点蓝 发表于:2025/4/1 9:02:00
不能这样设置。位置必须在细节区里,才能计算
共8 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.