主题：为什么提示窗口会弹出四次

Systemready = False

If e.DataCol.Name  = "核准"
    If e.NewValue = False Then
        If User.IsRole("QA核准") = False Then
            e.Cancel = True
        Else
            Dim Result As DialogResult
            Result = MessageBox.Show("注意 ! 此操作不可撤销 ! 您确认要进行核准吗 ? ", "删除确认", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
            If Result = DialogResult.No Then
                e.Cancel = True
            End If
        End If
    ElseIf e.NewValue = True Then
        If User.IsRole("后台维护") = False AndAlso User.IsRole("QA审批") = False Then
            e.Cancel = True
        Else
            Dim Result As DialogResult
            Result = MessageBox.Show("注意 ! 此操作不可撤销 ! 您确认要进行核准吗 ? ", "删除确认", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
            If Result = DialogResult.No Then
                e.Cancel = True
            End If
        End If
    End If
End If
Systemready = True