请问大师：关闭窗口删除当前工作表空白行代码如何写呀 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问大师：关闭窗口删除当前工作表空白行代码如何写呀

共有1874人关注过本帖树形打印复制链接主题：请问大师：关闭窗口删除当前工作表空白行代码如何写呀

xietan417

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：721 积分：6397 威望：0 精华：0 注册：2011/6/26 11:45:00

Post By：2017/3/6 14:17:00 [显示全部帖子]

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

xietan417

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：721 积分：6397 威望：0 精华：0 注册：2011/6/26 11:45:00

Post By：2017/3/6 15:00:00 [显示全部帖子]

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

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

If ep > "" Then

messagebox.show(ep & "不能为空")

Return

End If

DataTables("部门档案").Save()
Forms("部门档案录入").Close

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