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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.foxdb

帮看这段代码有什么问题

Dim d As Date = Date.Today
Dim str As String = "年 <= '" & d.year & "' And 月份 <= #" & d & "# and 公司名称 = 'abc'"
d = d.AddMonths(-12)
str &= " and 年 >= '" & d.year & "' and 月份 >= #" & d & "#"
Dim sum As Double = DataTables("明细表").Compute("sum(收入)", str)
With DataTables("总表")
    Dim s As String = CurrentTable.Current("年")
    Dim s1 As String
    Dim s0 As Date = Date.Today
    s1 = s0.year
    If s = s1 Then
        e.DataRow("连续12月累计收入") = sum
    End If
End With