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


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

主题:怎样删除表中的空白行?

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


加好友 发短信
等级:婴狐 帖子:60 积分:561 威望:0 精华:2 注册:2008/9/10 13:44:00
  发帖心情 Post By:2008/9/19 18:32:00 [显示全部帖子]

以下是引用贺老六在2008-9-19 16:43: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)
[此贴子已经被作者于2008-9-19 16:45:28编辑过]

呵呵,站在巨人肩上,精简些:
Dim Filter As String
For Each dc As DataCol In DataTables("表A").DataCols
  Filter = Filter & " and " & dc.Name & " Is Null"
Next
DataTables("表A").DeleteFor(Filter.SubString(5))


[本帖被加为精华]
 回到顶部