思路不对,用这个事件:
http://www.foxtable.com/help/topics/0605.htm
设置在父表的PrepareEdit事件中:
Select Case e.col.name Case "确认","复核","审结" Dim r As Row = Tables("操作登记表.操作结算表").current If r IsNot Nothing AndAlso r("出账单") = True Then e.cancel = True End IfEnd Select