Office中国论坛/Access中国论坛

标题: 请教一个代码问题？ [打印本页]

作者: lpolop 时间: 2004-11-26 16:30
标题: 请教一个代码问题？
在子窗体上有三个文本框。分别是

数量内盒数量箱数

现在我要箱数=数量/内盒数量

当数量/内盒数量<1时。箱数=1 我的代码是这样写的：

Private Sub 箱数_BeforeUpdate(Cancel As Integer)

Dim w, v, y As String

w = Val([箱数].text)

v = Val([数量].text)

y = Val([内盒数量].text)

If v / y < 1 Then w = 1 Else w = v / y

[箱数].text = Str$(w)

End Sub

但是，在箱数的文本框中，显示不出来。请大虾帮忙看看。应如何解决

作者: zhengjialon 时间: 2004-11-26 20:01
text换成VALUE试试.

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