以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  设置组合框默认值为当月第一天  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24558)
--  作者：风也劲
--  发布时间：2012/10/17 10:34:00
--  设置组合框默认值为当月第一天
如题，如何设置窗口里面的组合框默认值为当月第一天或最后一天，谢谢有心人
[此贴子已经被作者于2012-10-17 10:35:05编辑过]
--  作者：czy
--  发布时间：2012/10/17 10:51:00
--  
窗口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
--  作者：风也劲
--  发布时间：2012/10/17 11:25:00
--  

可以了，谢谢你

[此贴子已经被作者于2012-10-17 11:26:54编辑过]
--  作者：明丰
--  发布时间：2012/10/17 11:28:00
--  

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

\'窗口AfterLoad
e.form.Controls("ComboBox1").value = Today.AddDays(-Today.day+1) \'当月第一天
e.form.Controls("ComboBox1").value = (Today.Addmonths(1)).adddays(-Today.day) \'当月最后一天
--  作者：lin_hailun
--  发布时间：2012/10/17 11:32:00
--  
 最后一天，也可以这样。

e.Form.Controls("ComboBox1").Value = Date.DaysInMonth(Date.Today.Year, Date.Today.Month)
--  作者：风也劲
--  发布时间：2012/11/26 10:52:00
--  
升级2012-11-21版本后，组合框显示为“2012/10/1 星期一”，连“星期”都显示出来，如何设置只显示日期“2012/10/1”不要显示“星期一”？
--  作者：lin_hailun
--  发布时间：2012/11/26 10:56:00
--  
 不明白楼主的意思。给个例子看看。
--  作者：风也劲
--  发布时间：2012/11/26 11:29:00
--  
窗口中组合框，只需显示日期：“2012-10-01”，现在显示了“2012-10-01 星期一”，不要显示出“星期一”
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:只需显示日期.table
--  作者：狐狸爸爸
--  发布时间：2012/11/26 11:45:00
--  

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

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