以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码的使用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5161)
--  作者：blackzhu
--  发布时间：2009/11/27 14:16:00
--  代码的使用

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

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



  这段代码在什么情况下会显示结果出来,我做在按钮中不行.
--  作者：yangming
--  发布时间：2009/11/27 14:33:00
--  
Dim Sum As Double
With CurrentTable
    Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
e.Form.Controls("Label1").text = Sum
End With

窗口中加一个标签,在标签中显示