主题：[求助]累计列不能自动刷新问题

还要老师们帮忙，下面代码是在AfterLoad事件中，现在要后面再加一段代码，提示刷新结束

With DataTables("总表")
    Dim allname As List(Of String) = .GetValues("公司名称")
    For Each name As String In allname
        Dim s1 As String
        Dim d As Date = Date.Today
        s1 = d.year
        Dim dr As DataRow
        dr = .Find("年 = '" & s1 & "' and 公司名称 = '" & name & "'")
        If dr IsNot Nothing Then
            Dim str As String = "年 <= '" & d.year & "' And 月份 <= #" & d & "# and 公司名称 =  '" & name & "'"
            d = d.AddMonths(-12)
            str &= " and 年 >= '" & d.year & "' and 月份 >= #" & d & "#"
            Dim sum As Double = DataTables("明细表").Compute("sum(收入)", str)
            dr("连续12月累计收入") = sum
        End If
    Next
End With

'当表格数据很多时,会花一些时间执行上面代码,如何改下面代码,提示刷结束
'If
Dim jc As  String
jc = "刷新结束!"
msgbox(jc)
'End If