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


  共有3105人关注过本帖树形打印复制链接

主题:删除表中空白行

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
Next

 回到顶部