主题：窗口退出按钮

你这段代码有什么问题？

弹出什么？报什么错？

For Each r As Row In Tables("部门档案").rows
    If r.Isnull("编码规则")Then  '编码规则字符型
        messagebox.show("必须输入编码规则","提示")
        e.Cancel =True
        Return
        If r.Isnull("编码名称") Then '编码 名称字符型
            messagebox.show("必须输入编码名称","提示")
            e.Cancel =True
            Return
            If r.Locked= False Then
                If messagebox.show( "已经保存了新增数据","提示")Then
                    r.Locked= True
                    DataTables("部门档案").Save
                End If
            End If
        End If
    End If
Next

With Tables("部门档案")
    .Sort = "编码规则"
End With

Forms("部门档案").Close

If Tables("部门档案").Current Is Nothing Then Return

If Tables("部门档案").Current.isnull("编码规则") = True Then
    MessageBox.Show("部门编码不能为空!","提示")
    Return
End If

If Tables("部门档案").Current.isnull("编码名称") = True Then
    MessageBox.Show("部门名称不能为空!","提示")
    Return
End If

Tables("部门档案").Current().Locked=True
Tables("部门档案").save