标题：[求助]删除空行代码

1楼

易服发表于：2008/12/1 13:16:00

设一按钮删除所有空行

2楼

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"

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

3楼

易服发表于：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)

无论是内部数据还是外部数据的都不生效，为什么？

4楼

wcs 发表于：2008/12/1 17:06:00

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

我看用行集合,用isnullthing.

这样效率可能要高一些,不信试试.

5楼

狐狸爸爸 发表于：2008/12/1 17:07:00

没有道理的，这个代码是测试通过的。

6楼

易服发表于：2008/12/1 17:12:00

只有到另外的电脑上试一下

7楼

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"

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

上列设计中有下列两处不懂，请老师解释一下，好吗？
Filter = Filter & " And "
Filter = Filter & dc.Name & " Is Null"

8楼

czy 发表于：2009/12/24 16:01:00

将DataTables("表名").DeleteFor(Filter)
改成：
Output.show(Filter)看看结果或许你就可以懂了。

9楼

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)

这样好懂些吧～删除所有列都为空白的行！

10楼

xl 发表于：2009/12/24 16:48:00

哦，看懂了，谢谢两位老师！

共10 条记录, 每页显示 10 条, 页签: [1]