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

xmxiaohe · 发表于 2007-3-17 20:53:00

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

问题在以下例子里：

bergyan · 发表于 2007-3-17 21:50:00

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

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

andymark · 发表于 2007-3-17 22:19:00

也可以不用Undo

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

余额 = 贷方 - 借方
End If

End Sub

xmxiaohe · 发表于 2007-3-17 23:14:00

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

帐号		自动登录	找回密码
密码			注册

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

群介绍
主题无相 (随机显示版	同地区群块其他地区)