- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口空间计算问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41420)
-- 发布时间：2013/10/18 22:10:00
-- 窗口空间计算问题
上传项目,在窗口控件TextBox1的KeyDown事件中输入下面的代码
Dim zf As String = Val(e.Sender.Text)
Dim gt As Double = Val(e.Form.Controls("TextBox2").Text)
If zf <> "" Then
e.Form.Controls("TextBox3").Text = Format(zf * gt,"n")
Else
e.Form.Controls("TextBox3").Value = ""
End If
e.Form.Controls("TextBox3").Value = ""当TextBox1控件数值都清除点后这行代码的条件一直达不到,请教老师要怎么改代码?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目26.zip |
-- 发布时间：2013/10/18 22:16:00
--
这是TextBox1数值输入后TextBox3控件的值随着数值进行计算变化,当TextBox1数值去掉后TextBox3的值停在0.00,没有达到条件
此主题相关图片如下：图1.png
此主题相关图片如下：图2.png
-- 发布时间：2013/10/18 22:23:00
--
第一句代码去掉val
Dim zf As String = e.Sender.Text
-- 发布时间：2013/10/18 22:34:00
--
解决,这是怎么回事?请教 有点甜 老师,val不是判断数据类型吗?
-- 发布时间：2013/10/18 22:35:00
--
msgbox一下zf你就知道了，是0，不是空值。
-- 发布时间：2013/10/18 22:49:00
--
原来是这样,感谢 老师的指导