- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口中输入年、月的日期控件问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132899)
-- 发布时间：2019/4/1 19:35:00
-- [求助]窗口中输入年、月的日期控件问题
各位老师好！如何能在窗口中设置一个日期输入框，但不是现在的“日期输入框”控件那样。是想要类似下图那样的只要年、月（不要日）的日期输入框，就是在点击输入框的下箭头时能出现类似下图那样的日期（只有年、月）的选择控件。怎样才能做到，请老师帮助。谢谢。
此主题相关图片如下：qq截图20190401192325.png
[此贴子已经被作者于2019/4/1 19:42:15编辑过]
-- 发布时间：2019/4/1 20:30:00
--
没有这种控件。您可以自己使用组合框来做，一个组合框放入年份，一个组合框放入月份
-- 发布时间：2019/4/1 21:04:00
--
老师好！如果用组合框来做，是不是就得在组合框的"自定义项目"属性里要一行一行的将年份比如“1990、1991、1992......2050”写进去才行，或者用专门的“数据表”。如果是这样的话，如何让组合框的值默认为是当前年和当前月。请老师指导，谢谢！
-- 发布时间：2019/4/1 21:16:00
--
afterload
Dim 年 As WinForm.ComboBox = e.form.controls("combobox1")
For i As Integer = 1970 To 2050
年.Items.Add(i)
Next
年.Text = Date.Today.Year
月的用法一样，自己参考着做
[此贴子已经被作者于2019/4/1 23:15:49编辑过]
-- 发布时间：2019/4/1 22:03:00
--
谢谢老师指导！这么晚了老师还在工作，辛苦了。谢谢。
-- 发布时间：2019/4/1 22:16:00
--
老师好！还得麻烦您。出现系统“未知编译错误”，不知那里错，还得老师帮助指导。谢谢
-- 发布时间：2019/4/1 22:38:00
--
把控件名称改为自己的名称
-- 发布时间：2019/4/1 22:44:00
--
老师好！代码照搬您的，控件名就是“ComboBox1”
Dim 年 As WinForm.ComboBox = e.form.controls("Combobox1")
For Each i As Integer = 1970 To 2050
年.Items.Add(i)
Next
年.Text = Date.Today.Year
还请老师费心。谢谢
-- 发布时间：2019/4/1 23:16:00
--
Dim 年 As WinForm.ComboBox = e.form.controls("combobox1")
For i As Integer = 1970 To 2050
年.Items.Add(i)
Next
年.Text = Date.Today.Year
-- 发布时间：2019/4/2 0:06:00
--
谢谢老师！老师休息吧。晚安。