主题：[求助]请问这个错误代码是什么意思

Dim pr As DataRow = e.DataRow.GetParentRow("出库")
If   pr.Locked = True
     MessageBox.Show("已审核的单据不能再修改!")
     e.DataRow.Delete '
End If

 

我再执行以上代码时出现了错误提示，请问怎样解决？

 

 

此主题相关图片如下：搜狗截图_2012-03-07_09-47-53.png

我希望已经审核了的单据（父表）及已经锁定的行不能再增加子表关联行，若增加了自动删除

请问怎样写代码呢？我是通过单号关联的，在增加行之前，子表关联行的关联列“单号”还没有产生，程序报错

请问有没有办法解决，我代码的问题出在哪？请老师指点

请哪位大师告诉我怎样解决这个错误，谢谢！