Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]combobox 能不能事先默认一个值？


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

主题：[求助]combobox 能不能事先默认一个值？
帅哥哟，离线，有人找我吗？
dd6b
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		[求助]combobox 能不能事先默认一个值？  发帖心情 Post By：2013/8/1 23:43:00 [显示全部帖子]

combobox 能不能事先默认一个值？

 回到顶部
帅哥哟，离线，有人找我吗？
dd6b
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		  发帖心情 Post By：2013/8/3 20:56:00 [显示全部帖子]

狐爸，这是我做的下拉菜单，我想实现的是自动默认上一个月的日期，比如现在是2013年8月，上面就默认为2013年7月，这好实现吗？
图片点击可在新窗口打开查看此主题相关图片如下：bn.bmp
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
dd6b
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		  发帖心情 Post By：2013/8/3 21:31:00 [显示全部帖子]

我用
Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
Dim d As Date = Date.Today
Select Case d.year
Case 2013
cmb.SelectedIndex = 0
Case 2014
cmb.SelectedIndex = 1
Case 2015
cmb.SelectedIndex = 2
Case 2016
cmb.SelectedIndex = 3
Case 2017
cmb.SelectedIndex = 4
Case 2018
cmb.SelectedIndex = 5
Case 2019
cmb.SelectedIndex = 6
Case 2020
cmb.SelectedIndex = 7
End Select
这种笨方法实现了，谢谢大家指导！
[此贴子已经被作者于2013-8-3 21:32:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dd6b
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		  发帖心情 Post By：2013/8/3 23:42:00 [显示全部帖子]

谢谢，这个方法简单多了。
[此贴子已经被作者于2013-8-3 23:59:13编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 5 次数据查询