标题：删除空白行

1楼

blackzhu 发表于：2009/4/15 9:19:00

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

2楼

狐狸爸爸 发表于：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"

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

3楼

blackzhu 发表于：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"

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

菜单的有没有?

4楼

狐狸爸爸 发表于：2009/4/15 10:40:00

菜单没有，喜欢的话自己加进去即可.

5楼

blackzhu 发表于：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"

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

测试好像不起作用.

6楼

狐狸爸爸 发表于：2009/4/15 10:54:00

测试有作用

7楼

yuansq 发表于：2009/4/15 11:04:00

以下是引用狐狸爸爸在2009-4-15 10:40:00的发言：
菜单没有，喜欢的话自己加进去即可.

可以自己定义系统的默认菜单么，是那种和具体的文件无关的。
或者给个类似菜单插件的功能，可以让用户自己开发的菜单功能应用于所有文件，而不是特定文件。

8楼

狐狸爸爸 发表于：2009/4/15 11:07:00

以下是引用yuansq在2009-4-15 11:04:00的发言：

可以，设计好自己的菜单，保存为模板，替换掉foxtable目录下的System.Ribbon文件即可。

System.Ribbon就是系统菜单的木板文件，系统菜单在启动的时候根据此模板动态生成。

9楼

yuansq 发表于：2009/4/15 11:10:00

刚试出来了，不错。

10楼

blackzhu 发表于：2009/4/15 13:51:00

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

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

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