以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助:自动赋值问题 表属性里可以成功 组合框控件就不成功了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91901) |
-- 作者:李孝春 -- 发布时间:2016/10/21 13:14:00 -- 求助:自动赋值问题 表属性里可以成功 组合框控件就不成功了 自动赋值 在创建组合框控件属性中写上 不能对应赋值 报错如下: 烦请各位大大多多指导啊 谢谢 参考代码: Dim cm As WinForm.ComboBox =
e.Form.Controls("ComboBox1") [此贴子已经被作者于2016/10/21 13:16:56编辑过]
|
-- 作者:cbt -- 发布时间:2016/10/21 13:33:00 -- Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim dr As DataRow = DataTables("JDXX").Find("element = \'" & cm.SelectedValue & "\'") If dr IsNot Nothing Then e.Form.Controls("txtName").Value = dr("姓名") e.Form.Controls("txtTel").Value = dr("电话") End If |
-- 作者:cbt -- 发布时间:2016/10/21 13:33:00 -- SelectedItem 列表项目来自于数据表时,可用此属性返回或设置所选择的行(DataRow类型)。 |
-- 作者:李孝春 -- 发布时间:2016/10/21 13:59:00 -- 回复:(cbt)?Dim cm As WinForm.ComboBox = e.... Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2") Dim dr As DataRow = DataTables("JDXX").Find("element = \'" & cm.SelectedValue & "\'") If dr IsNot Nothing Then e.Form.Controls("textbox8").Value = dr("name") e.Form.Controls("textbox9").Value = dr("name") End If 特么感觉不对呢 运行还是没有结果哦 .NET Framework 版本:2.0.50727.5485 Foxtable 版本:2016.7.29.1 错误所在事件:窗口,主窗口,ComboBox2,SelectedIndexChanged 详细错误信息: 未将对象引用设置到对象的实例。 [此贴子已经被作者于2016/10/21 14:00:20编辑过]
|
-- 作者:有点蓝 -- 发布时间:2016/10/21 14:43:00 -- e.Form.Controls("textbox8").Value = e.sender.value e.Form.Controls("textbox9").Value = e.sender.value
|
-- 作者:李孝春 -- 发布时间:2016/10/21 15:15:00 -- 回复:(有点蓝) e.Form.Controls("text... 谢谢 已参照修改为如下代码 问题解决 Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2") If Tables("saxx.clxg").Current IsNot Nothing Then Tables("saxx.clxg").Current("description")=e.sender.value Tables("saxx.clxg").Current("description1")=e.sender.value End If |
-- 作者:狐狸爸爸 -- 发布时间:2016/10/21 15:40:00 -- 这个问题,帮助专门有介绍: http://www.foxtable.com/webhelp/scr/2436.htm |