主题：设置组合框默认值为当月第一天

如题，如何设置窗口里面的组合框默认值为当月第一天或最后一天，谢谢有心人

窗口AfterLoad事件代码
Dim d As Date = Today
Dim d1 As Date = New Date(d.Year,d.Month,1) '第一天
Dim d2 As Date = New Date(d.Year,d.Month,Date.DaysInMonth(d.Year,d.Month)) '最后一天
e.Form.Controls("DateTimePicker1").Value = d1
e.Form.Controls("DateTimePicker2").Value = d2

可以了，谢谢你

'如果是"ComboBox1"控件，用下面的：

'窗口AfterLoad
e.form.Controls("ComboBox1").value = Today.AddDays(-Today.day+1) '当月第一天
e.form.Controls("ComboBox1").value = (Today.Addmonths(1)).adddays(-Today.day) '当月最后一天

 最后一天，也可以这样。

e.Form.Controls("ComboBox1").Value = Date.DaysInMonth(Date.Today.Year, Date.Today.Month)

升级2012-11-21版本后，组合框显示为“2012/10/1 星期一”，连“星期”都显示出来，如何设置只显示日期“2012/10/1”不要显示“星期一”？

 不明白楼主的意思。给个例子看看。

窗口中组合框，只需显示日期：“2012-10-01”，现在显示了“2012-10-01 星期一”，不要显示出“星期一”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:只需显示日期.table

你为啥用组合框，日期输入用DateTimePicker啊：

http://www.foxtable.com/help/topics/0797.htm