删除表中空白行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除表中空白行

共有3108人关注过本帖树形打印复制链接主题：删除表中空白行

rgbjwjb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00

删除表中空白行 发帖心情

Post By：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

单击之后没有反应，请问应作如何修改？谢谢！！

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

主题：删除表中空白行