Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合计


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

主题：合计
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		合计  发帖心情 Post By：2022/9/19 14:49:00 [只看该作者]

Dim t As Table = Tables("费用")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear() 
g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "*"
    g.Caption = "合计"
    t.SubtotalGroups.Add(g)
Dim a = Tables("费用").Compute("Sum(收入)")
Dim b = Tables("费用").Compute("Sum(支出)")
Dim cnt = Tables("费用").Rows.Count(True) - 1
Dim r As Row = Tables("费用").Rows(cnt,True)
r("收入") = a
r("支出") = b
If a <> 0 Then r("结余") = a - b

设置一个合计行，收入和支出列为合计，结余列为收入-支出，怎么不显示？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请上传实例测试

 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/9/19 15:03:00 [只看该作者]

就是设计一个合计模式，合计的是收入和支出列。但是结余列需要用收入-支出，代码应该怎么写呢？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/9/19 15:28:00 [只看该作者]

成功啦~如果还想按照年份分别合计一下，应该怎么修改呢

Dim t As Table = Tables("费用")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear() 
g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "*"
   g.Caption = "合计"
    t.SubtotalGroups.Add(g)
  t.Subtotal()
Dim a = Tables("费用").Compute("Sum(收入)")
Dim b = Tables("费用").Compute("Sum(支出)")
Dim cnt = Tables("费用").Rows.Count(True) - 1
Dim r As Row = Tables("费用").Rows(cnt,True)
r("收入") = a
r("支出") = b
If a <> 0 Then r("结余") = a - b
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/9/19 16:03:00 [只看该作者]

为什么一打开就提示“不能在汇总模式下显示总计行！”

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/9/19 16:27:00 [只看该作者]

我把代码修改为这个样子，是可以执行的，但是关闭重新打开项目之后，就会提示“不能在汇总模式下显示总计行！”  进入“费用”表后设置的这些汇总也不自动显示


Dim t As Table = Tables("费用")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()

g = New Subtotalgroup
g.GroupOn = "年份"
g.TotalOn = "收入_金额,支出_金额"
g.DateGroup = DateGroupEnum.Day
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = "收入_金额,支出_金额"
t.SubtotalGroups.Add(g) 

t.Subtotal() 

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup Then
        r("结余") = r("收入_金额") - r("支出_金额")
    End If
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我测试没有问题，请上传实例说明

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (2).zip
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询