主题：[求助]删除怎么做？

入库窗体下建入库和删除按键，对相应的“入库汇总”和“库存”做改写，入库做好了，删除这个怎么也写不好，谁懂帮写一个，学习学习，达到删除入库每一行的同时对入库汇总和库存数量做相应的减少。谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

 大概这样写，楼主自己修改一下。

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("商品删除成功!")

谢谢了