还要老师们帮忙,下面代码是在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
[此贴子已经被作者于2015/11/28 18:54:30编辑过]