以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  ComboBox  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110743)

--  作者:Springamy
--  发布时间:2017/12/8 15:16:00
--  ComboBox

如图,我想在ComboBox2的值下拉选项有2个  当前年份,去年

如 现在是2017年,下拉有 2017 2016 两个值

明年的话是 2018 年,下拉选项有 2018  2017 .....这样

请问怎么赋值

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/12/8 15:34:00
--  

Dim y As Integer = Date.Today.Year

e.Sender.Items.Clear

e.Sender.Items.Add(y)

e.Sender.Items.Add(y-1)