| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]在窗口中如何实现选择计算值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37683) |
| -- 作者：ifastudy -- 发布时间：2013/7/8 14:00:00 -- [求助]在窗口中如何实现选择计算值 像excel一样，选择窗口中数据表的一个区域，右下角的状态栏自动求和值。如何实现呢？ |
| -- 作者：Bin -- 发布时间：2013/7/8 14:06:00 -- 本来就有这个功能 http://www.foxtable.com/help/topics/0176.htm |
| -- 作者：ifastudy -- 发布时间：2013/7/8 14:21:00 -- 这个我知道，窗口中的表如何实现呢？系统命令大全中也没有找到相关的内容。 |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/8 14:24:00 -- 我印象中，这个功能对于窗口表也有效的 [此贴子已经被作者于2013-7-8 14:24:40编辑过]
|
| -- 作者：ifastudy -- 发布时间：2013/7/8 14:28:00 -- 需要设置吗，为什么我在窗口中不行呢，我现在要求客户拷到excel中计算 |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/8 14:50:00 -- 不用代码的，如果主界面中的表可以，那么窗口中的表也应该可以。 需要注意的是，则个是系统菜单的功能，如果你是自定义菜单，而且删除了相关代码，那么你需要自己编程实现： http://www.foxtable.com/help/topics/0645.htm http://www.foxtable.com/help/topics/0545.htm
|
| -- 作者：ifastudy -- 发布时间：2013/7/8 18:03:00 -- 可以了。谢谢狐爸。 以下代码放在AfterSelRangeChange中 Dim Sum,Count,Average As Double With CurrentTable Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol) Count= .Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol) Average = .Aggregate(AggregateEnum.Average , .TopRow, .LeftCol, .BottomRow, .RightCol) End With StatusBar.Message3 = "计数:" & Count & " 累计:" & Sum & " 平均:" & Average |