主题：[求助代码问题

Dim Result As DialogResult
With CurrentTable
    If .Rows.Count > 0 Then
        If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
            .current.locked =True
            e.Form.Close
            Return
        Else
            Result = MessageBox.Show("是否直接退出?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.no Then
                Return
            Else
                .Current.delete()
                .current.locked =True
            End If
        End If
    Else
        e.Form.Close
    End If
End  With

上述代码是我做的录入窗口中的“退出”按钮中写入的代码，执行时大部分情况正常，只有，点击新增按钮后，不保存，直接点击对话框的“是”退出时，总是提示出错，哪位高手给看下，我实在是不知道哪里出现了问题了。