以文本方式查看主题 - 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 |