Office中国论坛/Access中国论坛

标题: 如何实现自动计算，一个说容易不容易的问题。 [打印本页]

作者: esmile 时间: 2003-10-12 22:09
提示: 作者被禁止或删除内容自动屏蔽

作者: eio 时间: 2003-10-12 23:39
笨办法：用一个未帮定的覆盖在上面，更新后更新本单的字段即可。

作者: esmile 时间: 2003-10-12 23:46
提示: 作者被禁止或删除内容自动屏蔽

作者: ADAM 时间: 2003-10-13 00:39
歷害....

作者: goodidea 时间: 2003-10-13 20:16
随手写的,不知道行不行哈

sub cal(ctrl as string)
me.txtInput.left = me.controls(ctrl).left
me.txtInput.top = me.controls(ctrl).top
me.txtInput.width = me.controls(ctrl).width
me.txtInput.visiable = ture
me.txtInput.setfocus
me.controls(ctrl).visiable = false
end sub
sub txtInput_afterUpdate()
screen.previouscontrol.visiable = true
screen.previouscontrol.setfocus
me.txtinput.visiable = false
screen.previouscontrol.value =eval( me.txtinput.value)
end sub

作者: esmile 时间: 2003-10-13 22:04
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)