Foxtable(狐表)用户栏目专家坐堂 → 求大神帮看看统计代码?


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

主题:求大神帮看看统计代码?

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/10 14:52:00 [显示全部帖子]

标题,不会显示数据。数据显示在具体的列里去。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/10 14:53:00 [显示全部帖子]

你可以修改其数据,参考

 

http://www.foxtable.com/help/topics/1911.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/10 15:08:00 [显示全部帖子]

 例子。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/10 17:15:00 [显示全部帖子]

编号列,是统计列,显示数值是正常的。

 

没有编号列,自然就显示分组列的内容。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/10 22:25:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/12 9:28:00 [显示全部帖子]

Dim r As Row
For i As  Integer = 0 To Tables("峰和设计协议统计表").Rows.Count(True) - 1
    r = Tables("峰和设计协议统计表").Rows(i,True)
    If r.IsGroup
        r("编号") = 12345678
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/12 14:08:00 [显示全部帖子]

汗,你就不能合成么?不会做就上传例子。

 

Dim r As Row
For i As  Integer = 0 To Tables("峰和设计协议统计表").Rows.Count(True) - 1
    r = Tables("峰和设计协议统计表").Rows(i,True)
    If r.IsGroup
        r("编号") = r("退回") & r("编号")
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/12 17:24:00 [显示全部帖子]

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "退回"
g.TotalOn = "编号"
g.Caption = "{0} 小计"
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
        r("编号") = t.Rows(i-1, True)("退回") & " 小计 " & r("编号")
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/12 21:28:00 [显示全部帖子]

加一句

 


t.Grid.Tree.Show(0)


 回到顶部