我知道哪报错，但不会处理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

　　哪不加了，我下午试过了，点一下单元格，还没选区域它就已经显示进度条了，老显示进度条折人！我要选定区域释放鼠标，对数据进行统计时才显示进度条，不是只要有鼠标释放动作或单元格、区域选择就显示进度条。

我把ＡfterSelRangeChange中的代码改为红色标注代码，想当选中区域列不为数值时统计个数，我这样写个数是统计了，但累计数、平均数、最大最小数都出来了，如何让它只显示个数。

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 t.Cols(c).IsNumeric = False Then

RibbonMenu.StatusBar.Message3 = t.Aggregate(AggregateEnum.Count,t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)

End If

Vars("SysUpdateAggregate") = True

其它是前面您不想删除的菜单事件代码执行的，如果要自己统计，就去掉主菜单事件代码

我自己在AfterSelRangeChange事件里写代码了，在主菜单里只留了快速访问栏和配置栏代码，其他的都删了，补上的不可见菜单也删了。

'以下代码用于在状态栏显示自动计算结果,如果不需要自动计算,可删除这一段

Dim t As Table

RibbonMenu.StatusBar.Message3 = ""

If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then

Return

Else

t = CurrentTable

End If

With t

If .TopRow = .BottomRow AndAlso .LeftCol = .RightCol Then

Return

End If

For c As Integer = .LeftCol To .RightCol

If .Cols(c).IsNumeric = False Then

RibbonMenu.StatusBar.Message3 = "个数:" & .Aggregate(AggregateEnum.Count,.TopRow, .LeftCol, .BottomRow, .RightCol) & " 累计:" & 0 & " 平均:" & 0 & " 最大值:" & 0 & " 最小值:" & 0

Else

RibbonMenu.StatusBar.Message3 = "个数:" & .Aggregate(AggregateEnum.Count,.TopRow, .LeftCol, .BottomRow, .RightCol) & " 累计:" & .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol) & " 平均:" & .Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol) & " 最大值:" & .Aggregate(AggregateEnum.Max, .TopRow, .LeftCol, .BottomRow, .RightCol) & " 最小值:" & .Aggregate(AggregateEnum.Min, .TopRow, .LeftCol, .BottomRow, .RightCol)

End If

End With

测试过没问题了。

[此贴子已经被作者于2021/3/9 22:44:03编辑过]

　　为什么我打开项目属性确认后做区域统计，自定义的功能没了，只有系统默认的数值列统计个数、累计数、平均数，打开菜单设计确认，或关闭软件重新打开它又恢复自定义功能？

系统菜单模式使用的是系统默认的功能。要使用自己的功能就切换回自定义菜单模式

主题：我知道哪报错，但不会处理