还有一种方法,在子表的PrepareEdit事件设置代码:
Dim dr As Datarow = e.Row.GetParentRow("父表")
if dr IsNot Nothing AndAlso dr("审批") = True Then
e.Cancel =True
End If