代码如下 加载系统的时候老是提示AfterSelRangeChange事件错误 找不到_identify 列
With e.NewRange
If e.Table IsNot Nothing Then
If e.Table.Current IsNot Nothing Then
Dim t As Table = e.Table
Dim s As String=""
If t.Cols(t.ColSel).IsNumeric Then '如果当前列是数值列
s = "求和:" & t.Aggregate(AggregateEnum.Sum, t.TopRow, t.ColSel, t.BottomRow, t.ColSel)
StatusBar.Message3 = s
End If
StatusBar.Message3 = s & " 计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.ColSel, t.BottomRow, t.ColSel)
End If
End If
End With