- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 按照日期汇总,最后一行单独统计了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136915)
-- 发布时间：2019/6/24 14:58:00
-- 按照日期汇总,最后一行单独统计了
按照日期汇总,最后一行单独统计了
此主题相关图片如下：按照日期汇总,最后一行单独统计了.png
Dim t As Table = Tables("工程数据列表_tb承包方发票")
If t.IsSubtotal = False Then
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "发票日期"
g.TotalOn = "发票金额"
g.Caption = "{0}日 小计"
g.DateGroup = DateGroupEnum.none
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" \'注意总计分组用符号*表示.
g.TotalOn = "发票金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() \'生成汇总模式
Else
t.ClearSubtotal
t.cols("不含税金额").GrandTotal = True
t.cols("税额").GrandTotal = True
t.cols("价税合计").GrandTotal = True
t.GrandTotal = True
End If
-- 发布时间：2019/6/24 15:24:00
--
应该有空白空格的数据影响了，去除空格保存数据
for each r as row in tables("表a").rows
r("第一列") = r("第一列").Trim
Next
-- 发布时间：2019/6/24 16:12:00
-- 回复：（有点甜）应该有空白空格的数据影响了，去除空...
甜老师,我看了下,好像不是这个空白空格的问题,好像是日期分组设置的问题呢
此主题相关图片如下：日期分组无模式.png
此主题相关图片如下：按日期模式.png
-- 发布时间：2019/6/24 16:17:00
--
那就有可能是你的时间，有 时分秒 的数值，导致判断不准确。
请上传具体实例测试
[此贴子已经被作者于2019/6/24 16:17:31编辑过]
-- 发布时间：2019/6/24 16:29:00
-- 回复：（有点甜）那就有可能是你的时间，有 时分秒 的...
麻烦您帮我看下
-- 发布时间：2019/6/24 17:12:00
--
这个是bug，建议你去掉【分组行位于数据行之上】的勾选。