菜单事件
_SystemIdle
If CurrentTable Is
Nothing Then Return
Dim str1 As String
= ""
Dim t As Table =
CurrentTable
If
t.Cols(t.ColSel).IsNumeric Then
Str1 = Str1 & "累计:" &
t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
& " "
Str1 = Str1 & "平均:" &
t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow,
t.RightCol) & " "
Str1 = Str1 & "最大:" &
t.Aggregate(AggregateEnum.Max, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
& " "
Str1 = Str1 & "最小:" &
t.Aggregate(AggregateEnum.Min, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
& " "
else
Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
End If
StatusBar.Message3 = str1
在附件中运行会出现错误,“索引超出范围。必须为非负值并小于集合大小。” 求解,先谢过。
[此贴子已经被作者于2018/11/16 16:52:03编辑过]