以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  下拉窗口NumericComboBox报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130095)

--  作者:mamuaiqing
--  发布时间:2019/1/13 5:21:00
--  下拉窗口NumericComboBox报错
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报错项目.foxdb


--  作者:mamuaiqing
--  发布时间: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


--  作者:mamuaiqing
--  发布时间:2019/1/14 0:55:00
--  
感谢老师的帮助