[求助]条件执行语句不会做，谢谢帮忙解答

xmxiaohe

[求助]条件执行语句不会做，谢谢帮忙解答

问题在以下例子里：

bergyan

判断后用一撤消上一步动作即可实现

Private Sub 借方_AfterUpdate()
If 借方 > 贷方 Then
Undo
借方.SetFocus
Else
余额= 贷方 - 借方
End If
End Sub

andymark

也可以不用Undo

Private Sub 借方_AfterUpdate()
If 借方 - 贷方 > 0 Then
   MsgBox "借方不能大于贷方"
   借方 = 0
   余额 = 贷方 - 借方
   借方.SetFocus
   Else

  余额 = 贷方 - 借方
  End If

End Sub

xmxiaohe

非常感谢andymark斑竹.........