- 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=38590)
-- 发布时间：2013/8/1 23:43:00
-- [求助]combobox 能不能事先默认一个值？
combobox 能不能事先默认一个值？
-- 发布时间：2013/8/1 23:53:00
--
http://www.foxtable.com/help/topics/0930.htm
-- 发布时间：2013/8/2 8:44:00
--
你在设计窗口的时候，也可以在控件属性中，给ComboBox设置一个默认值
-- 发布时间：2013/8/3 20:56:00
--
狐爸，这是我做的下拉菜单，我想实现的是自动默认上一个月的日期，比如现在是2013年8月，上面就默认为2013年7月，这好实现吗？
此主题相关图片如下：bn.bmp
-- 发布时间：2013/8/3 21:22:00
--
不难实现，你参考下
[此贴子已经被作者于2013-8-3 21:22:23编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2013/8/3 22:29:00
--
窗口的AfterLoad事件、控件的Enter事件
年：
e.Sender.Text = Date.Today.AddMonths(-1).Year
月：
e.Sender.Text = Date.Today.AddMonths(-1).Month
[此贴子已经被作者于2013-8-3 22:48:33编辑过]
-- 发布时间：2013/8/3 23:42:00
--
谢谢，这个方法简单多了。
[此贴子已经被作者于2013-8-3 23:59:13编辑过]