DataTables("表名").DeleteFor("列名 Is Null") '删除某列为空DataTables("表名").Save '保存表e.Form.close '退出本窗口
第二个不明白
With Tables("表名") If .Current IsNot Nothing Then .Current.Delete End IfEnd With 删除当前行
Tables("表名").Current("第三列") = False 当前行的第三列勾去掉