[求助]删除当前行后数据统计还原 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]删除当前行后数据统计还原

共有1540人关注过本帖树形打印复制链接主题：[求助]删除当前行后数据统计还原

jm20116

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

加好友

发短信

等级：婴狐帖子：90 积分：690 威望：0 精华：0 注册：2016/3/16 11:57:00

[求助]删除当前行后数据统计还原 发帖心情

Post By：2017/3/7 9:21:00 [只看该作者]

有个产品入库表和产品出库表，在窗体中用删除按钮实现删除产品出库表当前行时，如何实现当前删除行的“实交数量”在产品入库表中还原，下面是我的代码，但提示有错误

If Tables("产品出库表").Current.Isnull("入库单号") = False Then

If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

Dim pr As DataRow

pr = DataTables("产品入库表").Find("入库单号 = '" & e.DataRow("入库单号") & "'")

If pr IsNot Nothing Then

pr("剩余库存") = pr("剩余库存") + e.DataRow("实交数量")

Tables("产品出库表").Current.Delete

End If

Else

Tables("产品出库表").Current.Delete

End If

麻烦老师帮修改一下，谢谢啦

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/7 9:30:00 [只看该作者]

Dim r As Row = Tables("产品出库表").Current
If r.Isnull("入库单号") = False Then
    If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Dim pr As DataRow
        pr = DataTables("产品入库表").Find("入库单号 = '" & r("入库单号") & "'")
        If pr IsNot Nothing Then
            pr("剩余库存") = pr("剩余库存") + r("实交数量")
            r.Delete
        End If
    Else
        r.Delete
    End If
End If

jm20116

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

加好友

发短信

等级：婴狐帖子：90 积分：690 威望：0 精华：0 注册：2016/3/16 11:57:00

Post By：2017/3/7 9:45:00 [只看该作者]

谢谢

下一主题 >> << 上一主题

主题：[求助]删除当前行后数据统计还原