主题：求代码？

应该是beforecloseproject 事件中吧？

参考删除某一个表的空行 

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)