'''在状态栏显示选定区域的数据信息
If Forms("标录明细录入").Opened Then
Dim it As Winform.StripItem = e.Form.Strips("状态栏").Items("Stat")
it.Text = ""
Dim Sum,Count,Average,Max,Min As Double
If CurrentTable.Cols(CurrentTable.ColSel).IsNumeric Then '如果当前列是数值列
With CurrentTable
Count = .Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
Sum = Format(.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol),"0.00")
Average = Format(.Aggregate(AggregateEnum.Average , .TopRow, .LeftCol, .BottomRow, .RightCol),"0.00")
Max = Format(.Aggregate(AggregateEnum.Max , .TopRow, .LeftCol, .BottomRow, .RightCol),"0.00")
Min = Format(.Aggregate(AggregateEnum.Min , .TopRow, .LeftCol, .BottomRow, .RightCol),"0.00")
End With
End If
it.Text = "计数:" & Count & "个; 累计:" & Sum & "; 平均值:" & Average & "; 最大值:" & Max & "; 最小值:" & Min
'StatusBar.Message3 = "计数:" & Count & " 累计:" & Sum & " 平均:" & Average
End If
出现下面错误提示
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.7.9.1
错误所在事件:标录明细,AfterSelRangeChange
详细错误信息:
未将对象引用设置到对象的实例。