Foxtable(狐表) → 用户栏目 → 专家坐堂 → 设置组合框默认值的代码为何无效啊？


  共有1723人关注过本帖树形打印复制链接

主题：设置组合框默认值的代码为何无效啊？
帅哥哟，离线，有人找我吗？
guosheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		设置组合框默认值的代码为何无效啊？  发帖心情 Post By：2018/2/5 16:42:00 [显示全部帖子]

通过窗口的aferload事件设置：
Dim str As WinForm.ComboBox = e.Form.Controls("产值年份")
Dim y As Integer=Date.today.year
Dim y1 As Integer=y-1
Dim y2 As Integer=y+1
str.ComboList=y1 & "|" & y & "|" & y2
str.SelectedIndex =1                                设置组合框的默认选中值   
测试后，组合框的默认值为什么还是空呢
 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		组合框默认值仍然无效。 str.Text = y  发帖心情 Post By：2018/2/6 8:45:00 [显示全部帖子]

在窗口的aferload中添加str.Text = y，组合框的默认值仍然为空啊。
下拉列表已经成功生成了。
请老师帮忙看看怎么回事。

Dim str As WinForm.ComboBox = e.Form.Controls("产值年份")
Dim y As Integer=Date.today.year
Dim y1 As Integer=y-1
Dim y2 As Integer=y+1
str.ComboList=y1 & "|" & y & "|" & y2
'str.SelectedIndex =1
str.text=y
[此贴子已经被作者于2018/2/6 8:45:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		加入代码str.WriteValue后运行错误。该如何解决啊？  发帖心情 Post By：2018/2/6 9:07:00 [显示全部帖子]

详细错误信息：
未将对象引用设置到对象的实例。
Dim str As WinForm.ComboBox = e.Form.Controls("产值年份")
Dim y As Integer=Date.today.year
Dim y1 As Integer=y-1
Dim y2 As Integer=y+1
str.ComboList=y1 & "|" & y & "|" & y2
'str.SelectedIndex =1
str.text=y
str.WriteValue
 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		  发帖心情 Post By：2018/2/6 9:41:00 [显示全部帖子]

最后我在表的datarowadded中，赋初始值，解决了。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询