Foxtable(狐表)用户栏目专家坐堂 → [求助]关于AfterSelRangeChange事件


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

主题:[求助]关于AfterSelRangeChange事件

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


加好友 发短信
等级:童狐 帖子:250 积分:1875 威望:0 精华:1 注册:2013/5/25 18:06:00
[求助]关于AfterSelRangeChange事件  发帖心情 Post By:2014/1/3 13:10:00 [只看该作者]

我想在一个窗口表Tl_Target的事件AfterSelRangeChange中实现统计选择区域的数据,代码如下:

AfterSelRange事件:
Dim Sum,Count,Average As Double
With e.NewRange
        Sum = e.Table.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
        Count= e.Table.Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
        Average = e.Table.Aggregate(AggregateEnum.Average , .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 = "计数:" & Count & "   累计:" & Sum  & "   平均:" & Average

选择区域后,可以正确显示统计值,但是有一个问题:选择这个表的一个区域后,如果更新表结构会发生错误,提示这个表不存在名为“”列。

直接上例子。
打开窗口1后,查询一次。然后选择第二三列中的任何一个格子,再次查询都会报错。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:crosstableselrangechange.table


[此贴子已经被作者于2014-1-3 13:35:37编辑过]

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


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

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


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


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

太感谢了,总算解决了。

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


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

代码写错了。应该写成:

Dim Sum,Count,Average As Double
With CurrentTable  '当表结构发生变化时,写成With e.NewRange会报错,原因不详!
    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
[此贴子已经被作者于2014-1-12 20:43:59编辑过]

 回到顶部