导入系统菜单，修改一下菜单的 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
加好友 
发短信
Post By：2017/2/5 10:15:00 [显示全部帖子]
