删除行自动更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除行自动更新

共有3051人关注过本帖树形打印复制链接主题：删除行自动更新

swagger

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

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

删除行自动更新 发帖心情

Post By：2020/6/9 20:36:00 [只看该作者]

表A：

If e.DataCol.Name = "编号" Then '发生变化的是产品列.

e.DataRow("数量") = DataTables("表B").Compute("Sum(数量)","[编号] = '" & e.NewValue & "'")

End If

表B的datarowdeleted:

Dim pr As DataRow = DataTables("表A").find("编号 = '" & e.DataRow("编号") & "'")

If pr IsNot Nothing Then

DataTables("表A").DataCols("编号").RaiseDataColChanged(pr)

End If

删除表B的行的时候出现错误，无法更新数据

详细错误信息：

调用的目标发生了异常。

此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

这个该怎么解决？

有点蓝

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

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

Post By：2020/6/9 22:13:00 [只看该作者]

表B的datarowdeleting:

Dim pr As DataRow = DataTables("表A").find("编号 = '" & e.DataRow("编号") & "'")

If pr IsNot Nothing Then

e.DataRow("编号") = nothing

DataTables("表A").DataCols("编号").RaiseDataColChanged(pr)

End If

去掉datarowdeleted事件

主题：删除行自动更新