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

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

DataTables("表名称").DeleteFor("列名 Is Null")

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

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

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

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

Dim nms() As String = {"身份证号码","办公地址"}
Dim ep As String = ""
For Each nm As String In nms
    If Tables("部门档案").current.isnull(nm) Then
        ep= nm
        Exit For
    End If
Next
If ep > "" Then
    messagebox.show(ep & "不能为空")
    Return
End If

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

老大：

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

老大：

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

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

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

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

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