以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]删除空行代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1288)
--  作者：易服
--  发布时间：2008/12/1 13:16:00
--  [求助]删除空行代码
设一按钮删除所有空行
--  作者：czy
--  发布时间：2008/12/1 13:22:00
--  

Dim Filter As String

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

    If Filter > "" Then

        Filter = Filter & " And "

    End If

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

Next

DataTables("表名").DeleteFor(Filter)
--  作者：易服
--  发布时间：2008/12/1 16:43:00
--  
Dim Filter As String
For Each dc As DataCol In DataTables("总览").DataCols
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & dc.Name & " Is Null"
Next
DataTables("总览").DeleteFor(Filter)


无论是内部数据还是外部数据的都不生效，为什么？
--  作者：wcs
--  发布时间：2008/12/1 17:06:00
--  

条件:If Filter > ""  有误吧!

我看用行集合,用isnullthing.

这样效率可能要高一些,不信试试.
--  作者：狐狸爸爸
--  发布时间：2008/12/1 17:07:00
--  
没有道理的，这个代码是测试通过的。
--  作者：易服
--  发布时间：2008/12/1 17:12:00
--  

只有到另外的电脑上试一下
--  作者：xl
--  发布时间：2009/12/24 15:24:00
--  
以下是引用czy在2008-12-1 13:22:00的发言：

Dim Filter As String

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

    If Filter > "" Then

        Filter = Filter & " And "

    End If

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

Next

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

上列设计中有下列两处不懂，请老师解释一下，好吗？
Filter = Filter & " And "
Filter = Filter & dc.Name & " Is Null"
--  作者：czy
--  发布时间：2009/12/24 16:01:00
--  
将DataTables("表名").DeleteFor(Filter)
改成：
Output.show(Filter)看看结果或许你就可以懂了。
--  作者：mr725
--  发布时间：2009/12/24 16:09:00
--  

Dim Filter As String

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

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

Next
Filter = Filter.SubString(5)

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

这样好懂些吧～  删除所有列都为空白的行！
--  作者：xl
--  发布时间：2009/12/24 16:48:00
--  
哦，看懂了，谢谢两位老师！