以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  有关TextChanged的问题请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43451)
--  作者：myzzip
--  发布时间：2013/12/7 16:59:00
--  有关TextChanged的问题请教


图片点击可在新窗口打开查看此主题相关图片如下：@{a$r%89icnfc75f{c9pg~b.jpg
图片点击可在新窗口打开查看


 

If e.Form.Controls("TextBox1") .Text <> 0 And e.Form.Controls("TextBox1") .Text IsNot Nothing Then
    e.Form.Controls("TextBox5").Text = Round2(e.Form.Controls("TextBox1").Text * e.Form.Controls("TextBox4").Text,0)

End If
--  作者：Bin
--  发布时间：2013/12/7 17:14:00
--  
要先判断一下 确保文本框不是空值先

If e.Form.Controls("TextBox1") .Text <> 0 And e.Form.Controls("TextBox1") .Text <> "" andalso e.Form.Controls("TextBox4").Text <> ""  Then

    e.Form.Controls("TextBox5").Text = Round2(e.Form.Controls("TextBox1").Text * e.Form.Controls("TextBox4").Text,0)

End If