老师你好：
我格式化时，加了%出错了，如何调整？谢谢
''''在状态栏显示选定区域的数据信息
If Forms("标录明细录入").Opened Then
Dim it As Winform.StripItem = Forms("标录明细录入").Strips("状态栏").Items("Stat")
it.Text = ""
Dim Sum,Count,Average,Max,Min,Average1 As Double
With CurrentTable
Count = .Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
Sum = Format(.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol),"0.0000")
'Average = Format(.Aggregate(AggregateEnum.Average , .TopRow, .LeftCol, .BottomRow, .RightCol),"0.0000")
Average1 = .Aggregate(AggregateEnum.Average , .TopRow, .LeftCol, .BottomRow, .RightCol)
Average = IIF(Average1 < 1,Format(Average1,"00.00%"),Format(Average1,"0.00"))
Max = Format(.Aggregate(AggregateEnum.Max , .TopRow, .LeftCol, .BottomRow, .RightCol),"0.000")
Min = Format(.Aggregate(AggregateEnum.Min , .TopRow, .LeftCol, .BottomRow, .RightCol),"0.0000")
End With
it.Text = "计数:" & Count & "个; 累计:" & Sum & "; 平均值:" & Average & "; 最大值:" & Max & "; 最小值:" & Min
End If
加好友 
发短信
Post By：2018/7/13 2:59:00 [只看该作者]
