主题：窗口空间计算问题

上传项目,在窗口控件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

这是TextBox1数值输入后TextBox3控件的值随着数值进行计算变化,当TextBox1数值去掉后TextBox3的值停在0.00,没有达到条件
此主题相关图片如下：图1.png


此主题相关图片如下：图2.png

 第一句代码去掉val

解决,这是怎么回事?请教 有点甜 老师,val不是判断数据类型吗?

 msgbox一下zf你就知道了，是0，不是空值。

原来是这样,感谢 老师的指导