Foxtable(狐表)用户栏目专家坐堂 → 下拉窗口NumericComboBox报错


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

主题:下拉窗口NumericComboBox报错

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
下拉窗口NumericComboBox报错  发帖心情 Post By:2019/1/13 5:21:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报错项目.foxdb


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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2019/1/13 5:30:00 [只看该作者]

在项目窗口1的DropDownBox控件中打开下拉窗口,在NumericComboBox控件输入100,再点界面中的其它位置关闭下拉窗口,再打开下拉窗口再在NumericComboBox控件输入100,点确定,出现图中的错误.

 

在下拉窗口的DropDownOpening事件

Dim sl As String = "100"
If e.Form.DropDownBox.Value > ""  Then
    e.Form.Controls("数量").Value = Val(sl)
Else
    e.Form.Controls("数量").Value = Nothing
End If

如果将e.Form.Controls("数量").Value = Nothing这行代码去掉或者e.Form.Controls("数量").Value = 0,就不会报错

但是设计要求e.Form.DropDownBox.Value 等于空值的时候,e.Form.Controls("数量").Value也得为空值,而不是0

 

请教老师怎么解决这个问题,谢谢


此主题相关图片如下:qq101.jpg
按此在新窗口浏览图片

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


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

代码改成

 

Dim sl As String = "100"
If e.Form.DropDownBox.value > ""  Then
    e.Form.Controls("数量").value = val(sl)
Else
    e.Form.Controls("数量").value = 0
    e.Form.Controls("数量").value = Nothing
End If


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


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

感谢老师的帮助

 回到顶部