主题：死循环

请老师给看看，好象是个列循环。如果选择退出则删除本记录后退出怎么办。

Dim c As Row = Tables("学生违纪").Current
If c.IsNull("班级") OrElse c.Isnull("姓名") OrElse c.Isnull("违纪时间") OrElse c.Isnull("违纪地点") OrElse c.Isnull("违纪类型") OrElse c.Isnull("处理结果") OrElse c.Isnull("处理日期")  OrElse c.Isnull("记录人") OrElse c.Isnull("情况说明")     Then
    Dim Result As DialogResult
    Result = MessageBox.Show("填写不完整,是否退出", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        c.Reject
    Else
        msgbox("不退出")
    End If
Else
    c.save
End If