主题：提示窗口无法关闭

 老师，我在表事件中写了以下代码，明明写的是提示后该单元格内容清空就行了，但是目前提示后提示框无法关闭，非得强行关闭然后重新登录系统，重头再来，请帮忙看看，谢谢

Select Case e.DataCol.name
    Case "毛坯编码","成品流水号","成品编码"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("毛坯编码") = False AndAlso dr.IsNull("成品流水号") = False AndAlso dr.IsNull("成品编码") = False   Then
            If DataTables("产成品入库_录入").Compute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 成品流水号 = '" & dr("成品流水号")  & "' And 成品编码 = '" & dr("成品编码")  & "'") > 1 Then
                MessageBox.Show("成品流水号重复,重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            ElseIf DataTables("出入库明细").sqlCompute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 成品流水号 = '" & dr("成品流水号") & "' And 成品编码 = '" & dr("成品编码")   & "'") > 0 Then
                MessageBox.Show("成品流水号重复,重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            End If
        End If
End Select