Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]统计行的定位与引用问题


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

主题：[求助]统计行的定位与引用问题
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		[求助]统计行的定位与引用问题  发帖心情 Post By：2020/4/16 15:45:00 [只看该作者]

窗口按钮有以下代码，现在有二个求助，谢谢！
一、统计行的母卷号如何与“小计”分开，将统计行的母卷号写在“母卷号”列，将“小计”2字写在“卷号”列
二、我用遍历语句是不能遍历到统计行的，其实我的目的就是当前行是统计行时，在重量列填入一个1，不是统计行就不要处理，当然，实际使用时我是要去其他表查找数据填入的
Dim t As Table = Tables(e.Form.Name & "_Table1")
t.Fill("S elect  母卷号,卷号,重量 From {销售出库}  Where 起始时间 > '2020-4-10'","ShcsErpSql",True)

Dim g As Subtotalgroup
t.SubtotalGroups.Clear()

g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "母卷号"
g.TotalOn = "重量"
g.Caption = "{0} 小计" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

'定义总计分组
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示.
g.TotalOn = "重量"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() '生成汇总模式

t.DataTable.DataCols.Add("母卷入库重量", Gettype(Double))

For Each r As Row In t.Rows
r("母卷入库重量") = 1
Next


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


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

参考：http://www.foxtable.com/webhelp/topics/1594.htm，这一篇帮助开始，连续4个帮助都仔细看看

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


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2020/4/17 9:22:00 [只看该作者]

蓝版，我看了教程写了如下代码：
Dim r As Row
With t
    For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
        r = .Rows(i,True) 'Rows也需要加上参数True
        If r.IsGroup Then '如果是分组行
            r("母卷入库重量") = 1
        End If
    Next
End With

现在的问题是，如何取消合计行的单元格合并，帮助文件中只找到了合并单元格，就是没找到取消合并


[此贴子已经被作者于2020/4/17 9:30:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/17 9:29:00 [只看该作者]

这个没有办法。把重量移到第二列

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


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2020/4/17 9:31:00 [只看该作者]

另外，如何实现像EXCEL那样的分类汇总，可以选择显示的层级

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


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/17 9:45:00 [只看该作者]


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


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2020/4/17 10:36:00 [只看该作者]

蓝版，加入目录树后如何在显示时默认自动收起

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


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/17 10:39:00 [只看该作者]

参考

Tables("表A").Grid.Tree.Show(0)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 4 次数据查询