- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]删除怎么做？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26028)
-- 发布时间：2012/11/22 14:11:00
-- [求助]删除怎么做？
入库窗体下建入库和删除按键，对相应的“入库汇总”和“库存”做改写，入库做好了，删除这个怎么也写不好，谁懂帮写一个，学习学习，达到删除入库每一行的同时对入库汇总和库存数量做相应的减少。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
-- 发布时间：2012/11/22 15:08:00
--
大概这样写，楼主自己修改一下。
Dim s As Row = Tables("入库").Current
Dim dt1,dt2,dt3 As DataTable
dt1 = DataTables("入库")
dt2 = DataTables("实时")
dt3 = DataTables("入库汇总")
Dim dr As DataRow = dt2.find("货号 = \'" & s("货号") & "\'")
If dr IsNot Nothing Then
dr("数量") = dr("数量") - dt1.Compute("sum(数量)","货号 = \'" & s("货号") & "\'")
End If
dr = dt3.find("货号 = \'" & s("货号") & "\'")
If dr IsNot Nothing Then
dr("数量") = dr("数量") - dt1.Compute("sum(数量)","货号 = \'" & s("货号") & "\'")
End If
s.Delete
MessageBox.Show("商品删除成功!")
-- 发布时间：2012/11/22 16:35:00
--
谢谢了