主题：子表有数据后不能再修改主表代码怎么写

    If e.NewValue <>  "产品编号" Then

    For Each dr As DataRow In e.DataRow.GetChildRows("clmx")

   If dr("产品编号") = e.DataRow("产品编号") Then

     MessageBox.show("此产品已有记录,不能删除!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

   e.DataRow.Locked  = True

   e.Cancel = True

     End If

    Next

   End If

End If
此主题相关图片如下：2.jpg

子表有3行，我就得按3次确定才关闭这提示窗口！！请帮忙改下代码，谢谢了！