主题：死循环

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

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

代码放在哪里哪个事件的？

我现在放在主表转换前执行这个事件中，就是想让转换表时检查一下是否填写完整。

但放在这个事件中有个问题，不管哪个表转换都要提示。

到底是哪个事件？能不能把名称写出来？

代码放在： MainTableChanging事件中

If MainTable.Name = "学生违纪" Then

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

End If

判断一下表名