Foxtable(狐表)用户栏目专家坐堂 → [求助]临时表如何增加合计列与合计行


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

主题:[求助]临时表如何增加合计列与合计行

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


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
[求助]临时表如何增加合计列与合计行  发帖心情 Post By:2013/8/4 18:35:00 [显示全部帖子]

原代码如下
Dim dtb As New DataTableBuilder("输入")
Dim scs As List(of String) = DataTables("表A").GetUniqueValues("","颜色")
Dim cms As List(of String) = DataTables("表A").GetUniqueValues("","尺码")
dtb.AddDef("颜色", Gettype(String), 16)
For Each cm As String In cms
dtb.AddDef(cm, Gettype(Integer), 16)
Next
Tables("窗口1_Table1").DataSource = dtb .BuildDataSource
For Each sc As String In scs
Dim rw As Row = Tables("窗口1_Table1").AddNew
Dim rs As List(of DataRow) = DataTables("表A").Select("颜色 = '" & sc & "'")
rw("颜色") = sc
For Each r As DataRow In rs
rw(r("尺码")) = r("数量")
Next
Next
Tables("窗口1_Table1").AllowEdit = True


请问如何再增加一个 对 列的合计及对行的合计

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:颜色尺码.table


[此贴子已经被作者于2013-8-4 18:43:38编辑过]

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


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
Totals.AddDef无效  发帖心情 Post By:2013/8/4 19:19:00 [显示全部帖子]

试了Totals.AddDef无效, 好像DataTableBuilder   没有此方法.

大家有没有其它变通的方法也行.

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


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/8/4 22:02:00 [显示全部帖子]

以下是引用y2287958在2013-8-4 19:28:00的发言:
AfterLoad事件改为:
Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))
g.HGroups.AddDef("颜色")
g.VGroups.AddDef("尺码")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
Tables("窗口1_Table1").DataSource  = g.BuildDataSource
[此贴子已经被作者于2013-8-4 19:28:07编辑过]

已试过.有效果,不过生成的表格不能即时编辑,

Tables("窗口1_Table1").AllowEdit = True  后,  可编辑,不过合计不能实时变动


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


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/8/4 23:13:00 [显示全部帖子]

以下是引用有点甜在2013-8-4 22:48:00的发言:
 做好了,需要修改再说。

 下载信息  [文件大小:408.0 KB  下载次数:2532]
图片点击可在新窗口打开查看点击浏览该文件:颜色尺码.table

还想请教一下,如何禁止 颜色列,合计列,与合计行被编辑,  另外,我的窗口大小有限,如果内容多时,要移动滚动条才看到合计

能不能单独把颜色列,合计列,合计行冻结.这样无论在何种情况都能实时看到颜色列,合计列,合计行

还有一种情况,如果任一单元格为空时,合计就不显示了.能不能把单元格为空的情况计为0,或把空自动变为0,即不允许出现空

,再厚颜请教一个问题,对于此临时表的颜色与尺码,能不能排序.

比如, 黑白--->白黑;L,M,XL---->XL,M,L

[此贴子已经被作者于2013-8-4 23:45:13编辑过]

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


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
采用Label控件  发帖心情 Post By:2013/8/5 0:01:00 [显示全部帖子]

想到一个不完美的方法,不过有点得偿失.
固定行高,列宽,采用Label控件模拟合计效果.

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


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/8/5 9:12:00 [显示全部帖子]

大哥看看,这种情况如何解决,如果初始颜色规格不一样时,合计不显示.我试了  is nothing   null  都不行.

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:颜色尺码 (2).table



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


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/8/5 9:31:00 [显示全部帖子]

交叉统计如果能即时刷新合计,并即时保存编辑数据.

统计只能显示,不能编辑保存呀.

 回到顶部