| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]删除当前行后数据统计还原 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97154) |
| -- 作者：jm20116 -- 发布时间：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 End If 麻烦老师帮修改一下，谢谢啦 |
| -- 作者：有点色 -- 发布时间：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 -- 发布时间：2017/3/7 9:45:00 -- 谢谢 |