| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 窗口ComboBox事件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107172) |
| -- 作者：zoyong -- 发布时间：2017/9/22 14:47:00 -- 窗口ComboBox事件 SelectedIndexChanged事件代码 Dim cm As WinForm.ComboBox = e.Form.Controls("条件加载") Dim dr As DataRow = cm.SelectedItem If dr IsNot Nothing Then If e.Form.Controls("条件加载").Value = "昨天" Then DataTables("cw_lsbxql").LoadFilter = "[交易日期] = \'" & Date.Today.AddDays(-1) & "\'" DataTables("cw_lsbxql").Load ElseIf e.Form.Controls("条件加载").Value = "今天" Then DataTables("cw_lsbxql").LoadFilter = "[交易日期] = \'" & Date.Today & "\'" DataTables("cw_lsbxql").Load End If End If .NET Framework 版本：2.0.50727.8689 Foxtable 版本：2017.8.19.1 错误所在事件：窗口,徐巧玲流水表,条件加载,SelectedIndexChanged 详细错误信息： 无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow”。 |
| -- 作者：有点甜 -- 发布时间：2017/9/22 15:55:00 -- If e.Form.Controls("条件加载").text = "昨天" Then DataTables("cw_lsbxql").LoadFilter = "[交易日期] = \'" & Date.Today.AddDays(-1) & "\'" DataTables("cw_lsbxql").Load ElseIf e.Form.Controls("条件加载").text = "今天" Then DataTables("cw_lsbxql").LoadFilter = "[交易日期] = \'" & Date.Today & "\'" DataTables("cw_lsbxql").Load End If |
| -- 作者：zoyong -- 发布时间：2017/9/22 16:41:00 -- .NET Framework 版本：2.0.50727.8689 Foxtable 版本：2017.8.19.1 错误所在事件：窗口,徐巧玲流水表,条件加载,SelectedIndexChanged 详细错误信息： 无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow 错误依旧
|
| -- 作者：有点甜 -- 发布时间：2017/9/22 17:04:00 -- 全部代码改成
If e.Form.Controls("条件加载").text = "昨天" Then |