| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 汇总失效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128026) |
| -- 作者：lfz123 -- 发布时间：2018/11/27 13:56:00 -- 汇总失效 老师,我在窗口的afterload中设置如下代码:打开窗口的时候都实现了,可是鼠标点击到窗口表(绑定到关联表)的任何一个单元格,汇总就失效了,帮我看看吧?谢谢! With Tables("申请单.入库单") .MergeMode = MergeModeEnum.Standard \'标准合并模式 .MergeCols.Clear() \'清除原来的合并列 .MergeCols.Add("入库单号") .MergeCols.Add("入库日期") .MergeCols.Add("工程名称") \'加入要合并的列 .AllowMerge = True \'启用合并模式 \'清除分组 Dim g As Subtotalgroup .SubtotalGroups.Clear() \'定义入库单号分组 g = New Subtotalgroup \'定义一个新的分组 g.Aggregate = AggregateEnum.Sum \'统计类型为求和 g.GroupOn = "入库单号" \'分组列为客户 g.TotalOn = "不含税金额,含税金额" \'统计数量和金额列 g.Caption = "{0} 小计" \'设置标题 .SubtotalGroups.Add(g) \'加到分组集合中 \'定义总计分组 g = New Subtotalgroup g.Aggregate = AggregateEnum.Sum g.GroupOn = "*" \'注意总计分组用符号*表示. g.TotalOn = "不含税金额,含税金额" g.Caption = "总计" .SubtotalGroups.Add(g) .Subtotal() \'生成汇总模式 End With
|
| -- 作者：有点甜 -- 发布时间：2018/11/27 15:03:00 --
看你 currentChanged、click 等事件，是不是写了什么代码。
|