主题：请问大师：关闭窗口删除当前工作表空白行代码如何写呀

请问大师：关闭窗口删除当前工作表空白行代码如何写呀?

谢谢老大！如果我要把这个代码写到保存按钮中怎么写呀？

If Tables("部门档案").FindRow("身份证号码 is null") >= 0 OrElse Tables("部门档案").FindRow("办公地址 is null") >= 0  Then '(针对所有行)
    Msgbox("身份证号码及办公地址不能为空")
    e.Form.Controls("Button5").Enabled = True
    Return
End If
e.Form.Controls("Button5").Enabled = True

DataTables("部门档案").DeleteFor("身份证号码 Is null And 办公地址 Is null")
DataTables("部门档案").Save()
Forms("部门档案录入").Close

我是这样解决的：1、把删除行的代码加到表事件；2、增加了一个撤销按钮；

撤销按钮的代码是：

With Tables("部门档案")
    If .Current IsNot Nothing Then
        .Current.Reject()
    End If
End With

运行结果是，新添加了一行未输入身份证号码及办公地址，保存不了，这里要求必须输入该两列的内容才能保存，如果点击关闭窗口，然后保存文件是“身份证号码及办公地址”为空的就删除。

这样从逻辑上就更加完善了。

老大：

DataTables("部门档案").DeleteFor("身份证号码 Is null And 办公地址 Is null")

老大：

如何实现关闭窗口直接删除空白行就好了

此主题相关图片如下：qq截图20170306152543.jpg

自然“不能为空”是个循环，就不能做成保存就删除，最好做成点击关闭窗口删除“不能为空”的行。

在窗口事件“AfterClose”中写入：

DataTables("部门档案").DeleteFor("身份证号码 Is null And 办公地址 Is null")
就实现了，谢谢老大。

在窗口事件“AfterClose”中写入：

DataTables("部门档案").DeleteFor("身份证号码 Is null Or 办公地址 Is null")

才对