滚动12个月的下拉列表

Question

我想知道是否有人可以提供帮助。

我想填写显示过去12个月的下拉列表

所以列表中的项目将是

apr 14

可能14岁

jun 14

jul 14

aug 14

sep 14

...

apr 15

但下个月该列表将更改为 5月14日

jun 14

jul 14

...

5月15日

有谁知道怎么做？

非常感谢

Answer 1

Dim MyddlMonthList As ComboBox
Public Sub AddMonthsToDropDown()
    Dim month As DateTime = DateTime.Today
    For i As Integer = 11 To 0 Step -1
        Dim NextMont As DateTime = month.AddMonths(-i)
        MyddlMonthList.Items.Add(NextMont.ToString("MMMM") + " " + NextMont.ToString("yy"))
    Next
End Sub

希望这会帮助你。

Answer 2

这应该有用......

Dim now As DateTime = DateTime.Today.AddYears(-1)
For index As Int32 = 0 To 12
    ddl.Items.Add("{0} {1}", now.ToString("MMM"), now.ToString("yy"))

    now = now.AddMonths(1)
Next