标题：删除空白行的问题

删除空白行，如

Dim Filter As String
For Each dc As DataCol In DataTables("表A").DataCols
  Filter = Filter & " and " & dc.Name & " Is Null"
Next
DataTables("表A").DeleteFor(Filter.SubString(5))

这段代码应该放在表的那个事件中，我放到表的删除事件中，发现不对，请指教！