记得入库明细也得设置一下PrepareEdit事件：
dim dr As DataRow = e.Row.DataRow.GetParentRow("入库单")
if dr Isnot Nothing AndAlso dr.Isnull("审核人") = False Then
e.Cancel = True
End If
加好友 
发短信
Post By：2013/11/14 14:27:00 [只看该作者]
