Private Sub Form_Current()
Me.AllowEdits = Not Me.是否锁定
Me.AllowDeletions = Not Me.是否锁定
Me.子窗体.Form.AllowEdits = Not Me.是否锁定
Me.子窗体.Form.AllowDeletions = Not Me.是否锁定
End Sub
Private Sub Form_Current()
If Me.是否锁定 = True Then
Me.AllowEdits = False
Me.订单明细.Locked = True
Else
Me.AllowEdits = True
Me.订单明细.Locked = False
End If
End Sub