vb.net下拉列表填充

Question

我需要将我的下拉列表中的月份和年份值填充到getdate + 1年。我也希望它们采用文本格式，因此“2009年1月而非2009年1月。 这是我编写的用于填充值的代码。我如何从1开始将它们转换为1月？

Public Sub Load_xxxx（ByRef DDL As System.Web.UI.WebControls.DropDownList）         尝试             Dim i As Integer             Dim j As Integer             对于i = Now.Year To Now.Year                 对于j = Now.Month To Now.Month + 11                     DDL.Items.Add（（j.ToString）+“”+（i.ToString））                 下一个             下一个         赶上前例外             ReportError（前）         结束尝试     结束子

Answer 1

如果您只想尝试将整数值转换为月份名称，那么这是一种简单的方法 只是创建一个包含月份名称的字符串数组并使用你的j值 作为索引。

Answer 2

怎么样

Dim time As DateTime = DateTime.Now
    Dim j As Integer
    For j = 0 To 11
        DDL.Items.Add((time.AddMonths(j)).ToString("MMMM"))
    Next

Answer 3

Dim time As DateTime = DateTime.Now
DDL.Items.Clear()
While time <= time.AddYears(1)
    DDL.Items.Add((time.AddMonths(j)).ToString("MMMM yyyy"))
    time = time.AddMonths(1)
Next