以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样给label控件赋一个值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42541)

--  作者:dd6b
--  发布时间:2013/11/14 16:29:00
--  [求助]怎样给label控件赋一个值
怎样实现在label控件上显示 上个月最后一天的日期,或者直接在窗口里显示这个日期。
--  作者:Bin
--  发布时间:2013/11/14 16:31:00
--  
Dim d As Date =Date.today.AddMonths(-1)
e.form.controls("Label1").Text=Date.DaysInMonth(d.Year,d.Month)

--  作者:dd6b
--  发布时间:2013/11/14 16:34:00
--  
谢谢,我忘了后面加Test,难怪总提示是只读,不能赋值。
--  作者:狐狸爸爸
--  发布时间:2013/11/14 16:34:00
--  

上面是天数,日期的话,改一下:

 

Dim dt As Date = Date.Today
dt = new Date(dt.Year,dt.Month,1)
dt = dt.AddMonths(-1)
e.Form.Controls("Label控件名称") = Format(dt,"yyyy-MM-dd")


--  作者:Bin
--  发布时间:2013/11/14 16:39:00
--  
以下是引用狐狸爸爸在2013-11-14 16:34:00的发言:

上面是天数,日期的话,改一下:

 

Dim dt As Date = Date.Today
dt = new Date(dt.Year,dt.Month,1)
dt = dt.AddMonths(-1)
e.Form.Controls("Label控件名称") = Format(dt,"yyyy-MM-dd")


疏忽了图片点击可在新窗口打开查看
--  作者:dd6b
--  发布时间:2013/11/14 16:40:00
--  
谢谢,学习了!