Foxtable(狐表)用户栏目专家坐堂 → [求助]求自动计算代码


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

主题:[求助]求自动计算代码

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


加好友 发短信
等级:一尾狐 帖子:486 积分:3668 威望:0 精华:0 注册:2013/3/13 8:49:00
[求助]求自动计算代码  发帖心情 Post By:2013/7/10 10:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:求和.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:自动计算.jpg
图片点击可在新窗口打开查看
在菜单配置栏 做个 自动计算按钮  选数值列 在右下角显示 求和

这个代码如何写?


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/10 10:10:00 [只看该作者]


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


加好友 发短信
等级:一尾狐 帖子:486 积分:3668 威望:0 精华:0 注册:2013/3/13 8:49:00
  发帖心情 Post By:2013/7/10 10:45:00 [只看该作者]

统计当前表选定区域的累积值:

Dim Sum As Double
With
CurrentTable
    Sum =
.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End
With
OutPut.Show(Sum)

 

 

这代码放在哪?


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/10 10:56:00 [只看该作者]

AfterSelChange

选择不同的单元格后执行,也就是表的RowSelColSel属性发生变化后执行。


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


加好友 发短信
等级:童狐 帖子:250 积分:1875 威望:0 精华:1 注册:2013/5/25 18:06:00
  发帖心情 Post By:2013/7/10 10:57:00 [只看该作者]

AfterSelRangeChanged

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


加好友 发短信
等级:一尾狐 帖子:486 积分:3668 威望:0 精华:0 注册:2013/3/13 8:49:00
  发帖心情 Post By:2013/7/10 11:32:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动计算.table

帮忙看下,自动计算为什么不对呢?谢谢!

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/10 11:35:00 [只看该作者]

我看见你在论坛也挺活跃的呀.应该也挺勤奋学习的. 怎么会连 output.show的用处都没搞明白?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动计算.table



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


加好友 发短信
等级:婴狐 帖子:27 积分:279 威望:0 精华:0 注册:2013/8/18 21:08:00
  发帖心情 Post By:2013/8/18 21:17:00 [只看该作者]

7楼的在用户菜单下,还是不能自动计算?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/8/18 21:38:00 [只看该作者]

 在系统主菜单 systemidle事件 加入代码

Dim Sum As Double
With CurrentTable
    Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 = sum 

 回到顶部