主题：下拉窗口NumericComboBox报错

在项目窗口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

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

代码改成

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