主题：出现了不明白的运行错误，怎么办？

这是最初的提示信息，如图，点击显示详细信息，才出现我上传的第一张图的。
此主题相关图片如下：qq截图20150911165612.png

发错了
此主题相关图片如下：qq截图20150911165805.png

 

引用系统菜单模板，把代码删除。

 

http://www.foxtable.com/help/topics/1079.htm

 

 

 

 

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74232&skin=0

 

谢谢大红袍老师，我学习一下。

大红袍老师，我按照您的办法，试了试，在配置栏放了一个叫“自动计算”的按钮，如图：

 

 

并在狐表原菜单中添加了如下代码：

Dim t As Table = CurrentTable
If Vars("SysUpdateAggregate")
    If Windows.Forms.Control.MouseButtons <> Windows.Forms.MouseButtons.None OrElse Windows.Forms.Control.ModifierKeys <> Windows.Forms.Keys.None Then
        Return
    End If
    Dim Str1 As String = ""
    Vars("SysUpdateAggregate") = False
     Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    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) & " "
    RibbonMenu.StatusBar.Message3 = Str1
End If

 

现在可以按照自己的要求做出统计了，但是要选定区域，点击该按钮才能做出统计。

要怎样才能实现像狐表自带的自动计算一样，只要选择区域，就能自动在右下方的栏里自动显示这一结果，而不需要再点击该按钮呢？

此主题相关图片如下：qq截图20150912160857.png

我在做这一代码的同时，已经删除了在原菜单systemidle中的代码。

在全局表事件中做AfterSelRangeChange

下载信息  [文件大小：292.0 KB  下载次数：35]

点击浏览该文件:自动计算.table

嗯，谢谢大红袍老师，我看一下，您是把原来狐表菜单中的代码给改了，这样可以随时手动控制了！

我修改的时候，是不是应该把QAT改成configerbar，就可以了？