以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除空白行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2451)
--  作者：blackzhu
--  发布时间：2009/4/15 9:19: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
--  发布时间：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)

菜单的有没有?
--  作者：狐狸爸爸
--  发布时间：2009/4/15 10:40:00
--  
菜单没有，喜欢的话自己加进去即可.
--  作者：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"

Next

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

 测试好像不起作用.
--  作者：狐狸爸爸
--  发布时间：2009/4/15 10:54:00
--  
测试有作用
--  作者：yuansq
--  发布时间：2009/4/15 11:04:00
--  
以下是引用狐狸爸爸在2009-4-15 10:40:00的发言：
菜单没有，喜欢的话自己加进去即可.

可以自己定义系统的默认菜单么，是那种和具体的文件无关的。
或者 给个 类似菜单插件 的功能，可以让用户自己开发的菜单功能应用于所有文件，而不是特定文件。
--  作者：狐狸爸爸
--  发布时间：2009/4/15 11:07:00
--  
以下是引用yuansq在2009-4-15 11:04:00的发言：

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


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

System.Ribbon就是系统菜单的木板文件，系统菜单在启动的时候根据此模板动态生成。
--  作者：yuansq
--  发布时间：2009/4/15 11:10:00
--  
刚试出来了，不错。
--  作者：blackzhu
--  发布时间：2009/4/15 13:51:00
--  
以下是引用狐狸爸爸在2009-4-15 10:54:00的发言：
测试有作用

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