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

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

 

 

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

点击浏览该文件:管理项目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

"连续12月累计收入"列不能自动刷新，保存再打开也一样没有更新，只有把上面数据改动了，才刷新，不知道什么原因

放到AfterLoad事件，帮我改下

With DataTables("总表")
    Dim s As String = CurrentTable.Current("年")
    Dim s1 As String
    Dim d As Date = Date.Today
    s1 = d.year
    If s = s1 Then
        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)
        ' e.DataRow("连续12月累计收入") = sum
        Tables("总表").Filter = "[连续12月累计收入] = sum "  ‘这行代码表达不对，如何写
    End If
End With

.NET Framework 版本：2.0.50727.8000
Foxtable 版本：2015.11.2.1
错误所在事件：窗口,窗口1,AfterLoad
详细错误信息：
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 UserCode.AszVIokRKZTjka7yN(FormEventArgs e)

谢谢，可以了

又有问题了，如果有多家公司，必须再改代码

 如果有多家公司如何修改这两行代码

Dim dr As DataRow = .Find("年 = '" & s1 & "' and 公司名称 = 'abc'")

 Dim str As String = "年 <= '" & d.year & "' And 月份 <= #" & d & "# and 公司名称 = 'abc'"

也就是说要求每家公司都能自动进行累计算

就是要每家公司各自进行累计

请老师帮忙