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

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