以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:如何根据当前选择的多个物料编号,删除库存表中对应物料编号多有的出库操作行!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69478)

--  作者:李孝春
--  发布时间:2015/6/5 17:28:00
--  求助:如何根据当前选择的多个物料编号,删除库存表中对应物料编号多有的出库操作行!

Dim fdr As DataRow = DataTables("库存表").Find("序列号 in (\'" & e.DataRow("物料编号").Replace(",", "\',\'") & "\') and 操作类型 = \'出库操作\'")
fdr.Delete

 

求助:如何根据当前选择的多个物料编号,删除库存表中对应物料编号多有的出库操作行!

上述代码只能实现最后一个物料编号对应的数据,求指导!

 

 

我自行参照帮助中的查找行遍历方式,结果运行无效果!

 

Dim dr As DataRow
dr =
DataTables("订单").Find("[产品] = \'PD01\'", "日期 Desc")
If
dr IsNot Nothing Then
    Dim
wz As Integer = Tables("订单").FindRow(dr)
    If
wz >= 0 Then
        Tables
("订单").Position = wz

    End If
End If


--  作者:Bin
--  发布时间:2015/6/5 17:33:00
--  
用Deletefor 


--  作者:李孝春
--  发布时间:2015/6/5 17:39:00
--  回复:(Bin)用Deletefor?http://www.foxtable....

谢谢 BIN老师

按照你的办法解决了

DataTables("库存表").DeleteFor("序列号 in (\'" & e.DataRow("物料编号").Replace(",", "\',\'") & "\') and 操作类型 = \'出库操作\'")

[此贴子已经被作者于2015/6/5 17:39:15编辑过]