以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除表中空白行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141240)

--  作者:rgbjwjb
--  发布时间:2019/9/24 22:10:00
--  删除表中空白行
我想删除“收款明细表”中“收据号码”为空的记录,按钮的单击事件代码如下:
Dim t As Integer
For t= 0 To Tables("收款明细表").Rows.Count -1
    If  Tables("收款明细表").Current("收据号码") Is Nothing Then
        Tables("收款明细表").Current.Delete
    End If
Next
单击之后没有反应,请问应作如何修改?谢谢!!

--  作者:有点蓝
--  发布时间:2019/9/24 22:18:00
--  
删除要倒序处理

Dim t As Integer
For t= Tables("收款明细表").Rows.Count -1 to 0 step -1
    If  Tables("收款明细表").Rows(t).isnull("收据号码") Then
        Tables("收款明细表").Rows(t).Delete
    End If
Next