以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]日期控件选择日期后只显示年份  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160997)

--  作者：suliao9641 --  发布时间：2021/3/1 14:07:00 --  [求助]日期控件选择日期后只显示年份 Dim nian As WinForm.DateTimePicker = e.Form.Controls("年") Dim d As Date = nian.Value \'Output.Show(d.Year) \'msgbox(nian.Value) \'msgbox(d.Year) e.Form.Controls("年").Value=d.Year \'e.Sender.WriteValue() e.Form.controls("年").WriteValue DateTimePicker控件，TextChanged事件里写的代码 代码，弹窗正常，选择（2021-3-1显示正常，d.Year也是2021）最后赋值执行无效，写入失败

--  作者：有点蓝 --  发布时间：2021/3/1 14:12:00 --   要做啥功能？没看懂 e.Form.Controls("年").Value=d.Year  年名称的控件是一个日期控件，只能赋值日期值，d.Year是一个整数，不能给日期控件赋值的 日期控件无法只显示年份的，改为使用组合框做下拉呗 [此贴子已经被作者于2021/3/1 14:12:34编辑过]

--  作者：suliao9641 --  发布时间：2021/3/1 14:22:00 --   好吧，我放大字体，缩短控件，把后面的隐藏掉