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

If e.DataCol.Name = "产品编号" Then

    If e.DataRow.GetChildRows("clmx").count > 0 Then

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

        e.DataRow.Locked  = True

        e.Cancel = True

    End If

End If