- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉窗口NumericComboBox报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130095)
-- 发布时间：2019/1/13 5:21:00
-- 下拉窗口NumericComboBox报错
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报错项目.foxdb |
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2019/1/14 0:55:00
--
感谢老师的帮助