Foxtable(狐表)用户栏目专家坐堂 → 窗口空间计算问题


  共有4241人关注过本帖树形打印复制链接

主题:窗口空间计算问题

帅哥哟,离线,有人找我吗?
mamuaiqing
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
窗口空间计算问题  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
mamuaiqing
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/10/18 22:16:00 [只看该作者]

这是TextBox1数值输入后TextBox3控件的值随着数值进行计算变化,当TextBox1数值去掉后TextBox3的值停在0.00,没有达到条件
图片点击可在新窗口打开查看此主题相关图片如下:图1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:图2.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/18 22:23:00 [只看该作者]

 第一句代码去掉val

Dim zf As String = e.Sender.Text

 回到顶部
帅哥哟,离线,有人找我吗?
mamuaiqing
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/10/18 22:34:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/18 22:35:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
mamuaiqing
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/10/18 22:49:00 [只看该作者]

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

 回到顶部