主题：[讨论]错误事件

导入系统菜单，修改一下菜单的 AfterSelRangeChange事件

Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
Vars("SysUpdateAggregate") = False
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 > 0 Then
        If t.Cols(c).IsNumeric = False Then
            Return
        End If
    End If
Next
Vars("SysUpdateAggregate") =  True

http://www.foxtable.com/webhelp/scr/1079.htm