[求助]累计列不能自动刷新问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]累计列不能自动刷新问题

共有2590人关注过本帖树形打印复制链接主题：[求助]累计列不能自动刷新问题

xianzheng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：356 积分：2314 威望：0 精华：0 注册：2014/10/4 9:38:00

[求助]累计列不能自动刷新问题 发帖心情

Post By：2015/11/27 21:13:00 [只看该作者]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目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

[此贴子已经被作者于2015/11/28 8:30:17编辑过]

xianzheng

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：356 积分：2314 威望：0 精华：0 注册：2014/10/4 9:38:00

Post By：2015/11/27 21:17:00 [只看该作者]

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

Hyphen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/28 9:16:00 [只看该作者]

DataColChanged事件本来就是这样，想打开表就刷新，代码也放到AfterLoad事件

xianzheng

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：356 积分：2314 威望：0 精华：0 注册：2014/10/4 9:38:00

Post By：2015/11/28 9:54:00 [只看该作者]

放到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

xianzheng

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：356 积分：2314 威望：0 精华：0 注册：2014/10/4 9:38:00

Post By：2015/11/28 10:05:00 [只看该作者]

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

游

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00

Post By：2015/11/28 10:15:00 [只看该作者]

Tables("总表").Filter = "[连续12月累计收入] = " & sum ‘这行代码表达不对，如何写

Hyphen

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/28 10:34:00 [只看该作者]

With DataTables("总表")
    'Dim s As String = CurrentTable.Current("年")
    Dim s1 As String
    Dim d As Date = Date.Today
    s1 = d.year
    Dim dr As DataRow = .Find("年 = '" & s1 & "' and 公司名称 = 'abc'")
    If dr IsNot Nothing 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)
        dr("连续12月累计收入") = sum
        'Tables("总表").Filter = "[连续12月累计收入] = " & sum   '这行代码表达不对,如何写
    End If
End With