以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  RepeatFilter  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118711)

--  作者:huhu
--  发布时间:2018/5/9 11:36:00
--  RepeatFilter
DataTables("到货单").LoadFilter = "收货单号 = ‘A’"
DataTables("到货单").Load
Tables("到货单").RepeatFilter("单据号",2)--------\'这是显示冗余行
For Each dr As Row In Tables("到货单").Rows-----‘然后把冗余值都删除,可是为什么每次都是只删除1行,而不是把冗余行都删除?’
    dr.Delete
    dr.save
Next

--  作者:有点甜
--  发布时间:2018/5/9 12:15:00
--  

删除这样写

 

For i As Integer = Tables("到货单").Rows.count-1 To 0 Step -1
    Tables("到货单").Rows(i).delete
Next
Tables("到货单").save