主题：窗口统计求助

这是表AfterSelRangeChange时间代码

if Forms("主窗口").Opened then
    Dim Sum,Average,Count As Integer
    With CurrentTable
        Sum = CurrentTable.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
        Average = CurrentTable.Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)
        Count = CurrentTable.Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
    End With
    Forms("主窗口").Controls("Label1").text ="    累计: " & Cstr(sum) & "     平均: " & Cstr(Average) & "     计数: " & Cstr(Count) & " "
end if

对身份证号码字段出错，其它正常，请帮忙改进
此主题相关图片如下：snap1.jpg