主题：[求助]菜单事件SystemIdle问题

菜单事件

_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

在附件中运行会出现错误，“索引超出范围。必须为非负值并小于集合大小。” 求解，先谢过。