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


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

主题:删除空白行

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
删除空白行  发帖心情 Post By:2009/4/15 9:19:00 [显示全部帖子]

  我记得论坛有一个删除空白行的代码,现在没有找到.请哪位老大提供一下.按钮的和菜单的都要.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2009/4/15 10:22:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-4-15 9:25:00的发言:

Dim Filter As String

For Each dc As DataCol In DataTables("表A").DataCols

    If Filter > "" Then

        Filter = Filter & " And "

    End If

    Filter = Filter & dc.Name & " Is Null"

Next

DataTables("表A").DeleteFor(Filter)

菜单的有没有?


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2009/4/15 10:48:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-4-15 9:25:00的发言:

Dim Filter As String

For Each dc As DataCol In DataTables("表A").DataCols

    If Filter > "" Then

        Filter = Filter & " And "

    End If

    Filter = Filter & dc.Name & " Is Null"

Next

DataTables("表A").DeleteFor(Filter)

 测试好像不起作用.


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2009/4/15 13:51:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-4-15 10:54:00的发言:
测试有作用

我新增了一些空白行,没有任何数据,用你的代码没有用,怎么回事?是用的外部数据源.


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2009/4/15 17:09:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-4-15 14:38:00的发言:
内部外部都测试过,有用,也许你有隐藏列,并有默认值,或者有自动增量主键,等等。

  可能是隐藏列的问题,我再测试一下.


 回到顶部