以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  初始值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12755)

--  作者:张海兵
--  发布时间:2011/9/13 17:21:00
--  初始值
狐爸。麻烦问一下。我希望开始日期控件的值默认为本月第一天,结束日期为本月最后一天。这个应该怎么办啊。
图片点击可在新窗口打开查看此主题相关图片如下:截图13.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2011/9/13 17:53:00
--  

窗口的AfterLoad事件:

 

e.form.Controls("StartDate").Value = 第一天

e.form.Controls("EndDate").Value = 最后一天

 

如果取得某月第一天和最后一天,留给你做练习,参考:

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

 


--  作者:张海兵
--  发布时间:2011/9/13 18:16:00
--  狐爸看不懂

狐爸看不懂。指定那个月份的我知道的。关键是要本月的。应该是变化的。比如现在是9月份就应该显示9月份的第一天和最后一天。下个月就应该是10月份的

[此贴子已经被作者于2011-9-13 18:22:23编辑过]

--  作者:张海兵
--  发布时间:2011/9/13 18:23:00
--  看不懂

狐爸看不懂。指定那个月份的我知道的。关键是要本月的。应该是变化的。比如现在是9月份就应该显示9月份的第一天和最后一天。下个月就应该是10月份的


--  作者:张海兵
--  发布时间:2011/9/13 18:56:00
--  怎么老是这个样子
怎么老是这个样子。半天没人采。行不行说句活啊。
--  作者:张海兵
--  发布时间:2011/9/13 19:33:00
--  早知道就不买了
早知道就不买foxteball了。垃圾啊
--  作者:czy
--  发布时间:2011/9/13 19:41:00
--  

你只发个图,有这样的回复已经不错了。

如果想及时得到解决,自己做示例。

 

帮忙是义务的,你无权这样指责别人。


--  作者:czy
--  发布时间:2011/9/13 19:51:00
--  

根据2楼链接帮助,稍加修改:

 

Dim d As Date = Date.Now
Dim Days As Integer = Date.DaysInMonth(d.Year,d.Month)
Dim d1 As Date = New Date(d.Year,d.Month,1)
Dim d2 As Date = New Date(d.Year,d.Month,Days)
e.Form.Controls("DateTimePicker1").Value = d1
e.Form.Controls("DateTimePicker2").Value = d2


--  作者:张海兵
--  发布时间:2011/9/13 19:57:00
--  谢谢老师
刚才不好意思,我还以为”狐狸爸爸“是拿工资的呢。实在不好意思。
--  作者:mr725
--  发布时间:2011/9/13 20:30:00
--  
以下是引用张海兵在2011-9-13 19:57:00的发言:
刚才不好意思,我还以为”狐狸爸爸“是拿工资的呢。实在不好意思。

2楼是留作业给你的,你不学习,想偷懒,还爱发牢骚。 而且连FoxTable 都错写成 foxteball。。。  不会是玩足球的吧。