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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]刷新不实时

共有5730人关注过本帖树形打印复制链接主题：[求助]刷新不实时

mengxxaa

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

加好友

发短信

等级：幼狐帖子：98 积分：837 威望：0 精华：0 注册：2022/10/10 15:34:00

[求助]刷新不实时 发帖心情

Post By：2023/1/4 10:03:00 [只看该作者]

1.在前端对数据或者删除一些行之后，前端没有看到实时更新的结果，要重新登录系统才能看到。

2.在子表上删除一些数据后，父表有些行没有相应的变动。

代码1：

此主题相关图片如下：子表改动后父表无完全变化.png

Select Case e.DataCol.Name

Case "so_oder_qty", "so_shp_qty"

If e.DataRow.IsNull("so_oder_qty") OrElse e.DataRow.IsNull("so_shp_qty") Then

If e.DataRow.IsNull("so_shp_qty") Then

e.DataRow("so_stutas") = "未执行"

e.DataRow.Locked = False

End If

Else If e.DataRow("so_oder_qty") > e.DataRow("so_shp_qty") Then

e.DataRow("so_stutas") = "执行未完结"

e.DataRow.Locked = False

Else

e.DataRow("so_stutas") = "执行完毕"

e.DataRow.Locked = True

End If

End Select

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/4 10:05:00 [只看该作者]

代码是在哪个表的？

参考：http://www.foxtable.com/webhelp/topics/1472.htm

[此贴子已经被作者于2023/1/4 10:05:31编辑过]

mengxxaa

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

加好友

发短信

等级：幼狐帖子：98 积分：837 威望：0 精华：0 注册：2022/10/10 15:34:00

Post By：2023/1/4 10:07:00 [只看该作者]

代码是在父表上。

“在前端对数据或者删除一些行之后，前端没有看到实时更新的结果，要重新登录系统才能看到”，这个问题也是看你发出来的帮助链接吗？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/4 10:10:00 [只看该作者]

仔细看帮助，还要在子表写代码通知父表数据有更新了：

所以有必要考虑用另一重算方法，将订单表的DataColChanged事件代码设置为：

Select Case e.DataCol.Name
    Case "数量","单价","折扣"
        Dim pr As DataRow
        pr = DataTables("统计").Find("产品 = '" & e.DataRow("产品") & "'")
        If pr IsNot Nothing Then
            DataTables("统计").DataCols("产品").RaiseDataColChanged(pr)
        End If
End Select

代码的原理是，当订单表中数量、单价、折扣三列中任何一列的内容发生变化，就从统计表中找出对应产品所在的行，然后“欺骗性”地通知系统该行的产品列内容发生了变化，于是触发统计表的DataColChanged事件，重算此行的数量和金额。

这种更新方式是很常用的，即使处理的不是表达式列，我们多数时候也会采用这种更新方式。
因为使用RaiseDataColChanged更新，代码不会涉及具体的计算，所以代码是通用的，基本上不会因为计算要求的变动，而去修改更新代码。

mengxxaa

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

加好友

发短信

等级：幼狐帖子：98 积分：837 威望：0 精华：0 注册：2022/10/10 15:34:00

Post By：2023/1/4 15:14:00 [只看该作者]

已经在子表中写了通知父表有更新的代码：

If e.DataCol.name = "dnd_qty" Then

Dim pr As DataRow = e.DataRow.GetParentRow("so_det") '找出对应的父行

If pr IsNot Nothing Then

DataTables("so_det").DataCols("so_shp_qty").RaiseDataColChanged(pr) '通知系统此父行的数量列发生了改变,触发DataColChanged事件

End If

有了这个代码，只要子表中的dnd_qty发生了变化，父表中对应行的so_shp_qty也跟着变化，但是没有触发父表其他列也跟着变。

看了帮助，还是有疑问，帮助的例子中，统计表的产品是不重复唯一的，而我的子表中的产品在父表中存在多行。希望老师指点一二

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/4 15:22:00 [只看该作者]

so_shp_qty是表达式列？

mengxxaa

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

加好友

发短信

等级：幼狐帖子：98 积分：837 威望：0 精华：0 注册：2022/10/10 15:34:00

Post By：2023/1/4 15:34:00 [只看该作者]

so_shp_qty在父表中是表达式，看了帮助中：

首先将统计表的DataColChanged事件代码设置为：

If e.DataCol.Name = "产品" Then
    Dim Filter As String = "[产品] = '" & e.NewValue & "'"
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)", Filter)
    e.DataRow("金额") = DataTables("订单").Compute("Sum(金额)", Filter)
End If

同样在统计表设置好上述代码后，请重置一次该表的产品列。

订单表的金额列是一个表达式列，其表达式为：[数量] * [单价] * (1 - [折扣])
我们知道表达式列有一个特性，就是其值发生变化后，并不会触发DataColChanged事件，此特性导致我们无法简单地用前面介绍的方法来自动更新统计表中的销售金额。
所以有必要考虑用另一重算方法，将订单表的DataColChanged事件代码设置为：