主题：窗口退出按钮

For Each r As Row In Tables("部门档案").rows

    If r("编码规则") Is Nothing Then  '编码规则字符型

        messagebox.show("必须输入编码规则","提示")

        e.Cancel =True

        Return

        If r("编码名称") Is Nothing Then '编码 名称字符型

            messagebox.show("必须输入编码名称","提示")

            e.Cancel =True

            Return

            If r.Locked= False Then

                If messagebox.show( "已经保存了新增数据","提示")Then

                    r.Locked= True

                    DataTables("部门档案").Save

                    Forms("部门档案").Close

                    Forms("主界面").open

                End If

            End If

        End If

    End If

Next