- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 汇总模式时候可以不计算某些行？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190145)
-- 发布时间：2024/1/19 9:01:00
-- 汇总模式时候可以不计算某些行？
如图，
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获.png待检结余和发货结余是两列，又想左右拆开显示。怎么样能让这些列是0的不参与汇总？或者汇总结果显示空值？
-- 发布时间：2024/1/19 9:35:00
--
参考：http://www.foxtable.com/webhelp/topics/1964.htm
-- 发布时间：2025/1/15 8:33:00
--
For Each c As Col In tjt.cols
If c.Name.contains("金额") Or c.Name.contains("数量") Or c.Name.contains("利润") Then
tjt.Cols(c.name).GrandTotal = True
tjt.GrandTotal = True \'显示合计模式
Dim r2 As Row = tjt.Rows(tjt.Rows.count - 1, True)
End If
Next
这个代码能不能增加一个汇总条件？
-- 发布时间：2025/1/15 8:35:00
--
如 For Each c As Col In tjt.cols If c.Name.contains("金额") Or c.Name.contains("数量") Or c.Name.contains("利润") Then tjt.Cols(c.name).GrandTotal = True tjt.fiter="1=1" tjt.GrandTotal = True \'显示合计模式 Dim r2 As Row = tjt.Rows(tjt.Rows.count - 1, True) End If Next |
-- 发布时间：2025/1/15 8:41:00
--
合计模式加不了。汇总模式参考2楼
-- 发布时间：2025/1/15 9:28:00
--
合计模式下的行如何判断？
-- 发布时间：2025/1/15 10:00:00
--
Dim r As Row = Tables("表A").Current
If r Is Nothing Then
MsgBox("表格没有数据，或者选中的合计行")
End If