以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]删除当前表空行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95600)
--  作者：jyh7081
--  发布时间：2017/1/24 22: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)

上面的指定表代码怎样改为当前表代码？
--  作者：wyz20130512
--  发布时间：2017/1/24 23:34:00
--  
CurrentTable.DataTable
--  作者：jyh7081
--  发布时间：2017/1/25 9:28:00
--  
谢谢！
一楼的代码没起作用，不知道为什么，下面的可用。但SubString(5)不知道什么意思

Dim Filter As String      ’删除当前表空行
For Each dc As DataCol In CurrentTable.DataTable.DataCols
    Filter = Filter & " And " & dc.Name & " Is Null"
Next
Filter = Filter.SubString(5)
CurrentTable.DataTable.DeleteFor(Filter) 
--  作者：有点蓝
--  发布时间：2017/1/25 9:53:00
--  
弹出filter内容看看就知道为什么了
msgbox(filter)

不起作用说明有列不是空值的，可能是空字符串什么的