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


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

主题：求大神帮看看统计代码？
帅哥哟，离线，有人找我吗？
zsslly
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		求大神帮看看统计代码？  发帖心情 Post By：2015/8/10 14:44:00 [显示全部帖子]

Dim t As Table = Tables("峰和设计协议统计表")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
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()


统计好了之后，没有记录数？为什么？
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/10 14:46:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150810144337.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/10 14:50:00 [显示全部帖子]

有大师在吗？

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/10 15:05:00 [显示全部帖子]

我说的是记录数，表里有“编号”列，我设为“整数”型，在表里数计是有记录数的，但放到窗口中引用后就没有记录数了？
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150810150227.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/8/10 15:06:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/10 17:11:00 [显示全部帖子]

如图，就是表里面有没有统计的列的问题，代码不变的情况下，如果表里没有“编号”列就会是下一种，如果有“编号”列就会是上一种，不知道为何。
图片点击可在新窗口打开查看此主题相关图片如下：2015810156410245.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：201581014454534117.jpg
图片点击可在新窗口打开查看

这样的问题就是，标题栏好像不能设置固定的格式，比如：  库存   小计   1
苦脑！
[此贴子已经被作者于2015/8/10 17:12:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/10 22:24:00 [显示全部帖子]

我意思就是，显示分组列内容，还能有小计

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/12 0:20:00 [显示全部帖子]

大红袍老师，有办法吗?让标题栏即能显示统计列的数字又能显示分组列的内容！

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/12 0:23:00 [显示全部帖子]

看到您给的知识点了，其中的代码不是太能理解，求老师指点？

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/12 12:55:00 [显示全部帖子]

大红袍老师，这是我统计控件的所有代码：

Dim t As Table = Tables("设计协议管理_table2")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
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 Tables("峰和设计协议统计表").Rows.Count(True) - 1
    r = Tables("峰和设计协议统计表").Rows(i,True)
    If r.IsGroup
        r("编号") = 12345678
    End If
Next

还是不行，标题栏只显示数字不显示分组列中的内容，求解！
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2015/8/12 17:19:00 [显示全部帖子]

例子，求老师指点，我想要的结果形式如：   回家  小计  2   ( "分组内容"   小计    "统计结果
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:统计管理.table

" )

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询