- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]突然发现的错误，日期选择框代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46026)
-- 发布时间：2014/2/15 19:04:00
-- [求助]突然发现的错误，日期选择框代码
此主题相关图片如下：360截图20140216184705906.jpg
点击日期选择框清除按钮时出现上面提示，项目文件停止运行，想死机一样
下面是日期输入框ValueChanged事件代码
Dim lst As WinForm.ComboBox = e.form.Controls("ComboBox1")
lst.items.Clear
e.Form.Controls("ComboBox1").Value = ""
Dim rq As String = e.form.Controls("DateTimePicker1").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT BRXM From {SFMX} Where RQ = #" & rq & "#"
dt = cmd.ExecuteReader
e.Form.Controls("ComboBox1").Combolist = dt.GetComboListString("BRXM")
-- 发布时间：2014/2/15 19:23:00
--
ValueChanged事件要加个判断是否空值
-- 发布时间：2014/2/15 19:31:00
--
如2楼，这样改一下
Dim lst As WinForm.ComboBox = e.form.Controls("ComboBox1")
lst.items.Clear
e.Form.Controls("ComboBox1").Value = ""
Dim rq As String = e.form.Controls("DateTimePicker1").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
If rq > "" Then
cmd.CommandText = "SELECT DISTINCT BRXM From {SFMX} Where RQ = #" & rq & "#"
Else
cmd.CommandText = "SELECT DISTINCT BRXM From {SFMX}"
End If
dt = cmd.ExecuteReader
e.Form.Controls("ComboBox1").Combolist = dt.GetComboListString("BRXM")