以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  空白行是新增的,不能删除空白行,也不报错,是什么原因呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152907)

--  作者:xxfoxtable
--  发布时间:2020/7/25 10:08:00
--  空白行是新增的,不能删除空白行,也不报错,是什么原因呢?

 For i As Integer = Tables("业务处理临时").rows.count - 1 To 0 Step -1
    If Tables("业务处理临时").Current("数量")=0
        Tables("业务处理临时").rows(i).delete
    ElseIf Tables("业务处理临时").Current.Isnull("数量")
        Tables("业务处理临时").rows(i).delete
    ElseIf Tables("业务处理临时").Current.Isnull("物料编号")
        Tables("业务处理临时").rows(i).delete
    End If
Next

目的是保存前,把空白行和数量为0的行,删除

[此贴子已经被作者于2020/7/25 10:08:38编辑过]

--  作者:有点蓝
--  发布时间:2020/7/25 10:19:00
--  
If Tables("业务处理临时").rows(i)("数量")=0
Tables("业务处理临时").rows(i).delete