以文本方式查看主题

-  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=48859)
--  作者：asionwong
--  发布时间：2014/4/7 17:03:00
--  行删除
窗口1存在 Tables("入库单.入库明细"),这个table 的“数量”列有些为空值，添加一个按钮，希望点击这个按钮的时候，能够一次全部删除这些空值行，请教这个按钮的代码怎么写？谢谢！
--  作者：有点甜
--  发布时间：2014/4/7 17:14:00
--  

for each r as row in tables("入库单.入库明细").rows

    if r("数量") = 0 then

        r("数量") = nothing

    end if

next
--  作者：asionwong
--  发布时间：2014/4/7 21:02:00
--  

添加一个按钮，希望点击这个按钮的时候，能够一次全部删除这些空值的行，上面代码好像没有与批量删除相关的代码
--  作者：e-png
--  发布时间：2014/4/7 21:10:00
--  
DeleteFor
--  作者：asionwong
--  发布时间：2014/4/7 21:19:00
--  
deletefor 只能对datatable,对table好像要复制些，能就上面的要求给个相对清晰的代码吗？谢谢！
--  作者：asionwong
--  发布时间：2014/4/7 21:19:00
--  
复杂些
--  作者：e-png
--  发布时间：2014/4/7 22:28:00
--  

for i as integer = tables("入库单.入库明细").count-1 to 0 step -1

    if tables("入库单.入库明细").rows(i)("数量") =0

        tables("入库单.入库明细").Rows(i).Delete()

    end if

next