- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 拉选单元格不显示统计结果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26685)
-- 发布时间：2012/12/12 0:42:00
-- 拉选单元格不显示统计结果
在系统菜单情况下拉选有数字的单元格会在右下角显示统计结果（如下图），但在用户菜单的情况下却不显示，如何设置？
此主题相关图片如下：统计结果.jpg
[此贴子已经被作者于2012-12-12 0:45:14编辑过]
-- 发布时间：2012/12/12 9:56:00
--
编写菜单->主菜单->事件->AfterSelRangeChange
Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
Return
Else
t = CurrentTable
End If
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then
Return
End If
For c As Integer = t.LeftCol To t.RightCol
If c < 1 Then
Continue For
End If
If t.Cols(c).IsNumeric = False Then
Return
End If
Next
Dim count As Integer = t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
Dim sum As Double = t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
Dim avg As Double = t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
RibbonMenu.StatusBar.Message3 = count & "|" & sum & "|" & Avg
-- 发布时间：2012/12/12 11:51:00
--
谢谢帮助，已解决。不过这算不算一个 BUG ?
-- 发布时间：2012/12/12 12:09:00
--
这个不是Bug。菜单都通过代码实现的。