在光标离开一输入了数字的文本框控件后，另一文本框的值直接由其他文本框的数字的运算得来，下面代码显示有错，帮忙看一下

Question

Private Sub txtproprice_KeyPress(Index As Integer, KeyAscii As Integer)
  txtmoney(1).Text = Trim(txtproductmount(1).Text) * Trim(txtproprice(1).Text)'金额文本框的值为数量与价格的积
  Call FocusNext(KeyAscii)  '调用焦点移动函数
End Sub已经在数量的文本框输入数值，在单价文本框一输入内容就提示出错，

Answer 1

计算过程放在文本框的LOSTFOCUS过程中．

Answer 2

同意楼上的说法，在text_LostFocus里面实现（假设是txtproprice），那么当输入完单价，光标移开该文本框时，money文本框里将显示出具体的金额

Answer 3

Trim()换成val()
字符串怎么进行乘法运算

Answer 4

也可以在key_press事件里写。
Private Sub txtproprice_KeyPress(Index As Integer, KeyAscii As Integer)if keyascii = 13 then
  txtmoney(1).Text = Trim(txtproductmount(1).Text) * Trim(txtproprice(1).Text)'金 额文本框的值为数量与价格的积
  Call FocusNext(KeyAscii)  '调用焦点移动函数
end ifEnd Sub