Question

我试图找到一种在下拉列表中添加值的方法，但我不知道如何在VB.NET中执行此操作。所有我想出了以下代码，但只加载最后一个项目值。

请更正我需要更改的内容以加载下拉列表中的所有列表项。我试过AddRange，但它给了我一个错误。

       dlstYear.Items.Clear()
    Dim newListItem As ListItem
    newListItem = New ListItem("-- ALL --")
    newListItem = New ListItem(DateTime.Today.Year.ToString())
    newListItem = New ListItem(DateTime.Today.AddYears(-1).Year.ToString())
    newListItem = New ListItem(DateTime.Today.AddYears(-2).Year.ToString())
    newListItem = New ListItem(DateTime.Today.AddYears(+1).Year.ToString())
    newListItem = New ListItem(DateTime.Today.AddYears(+2).Year.ToString())
    dlstYear.Items.Add(newListItem)
End Sub

Answer 1

您只有一个ListItem变量，您只需将其设置为不同的值即可。而不是试图将所有内容保存在一个变量中，只需将内容直接添加到列表中：

dlstYear.Items.Clear()
dlstYear.Items.Add(New ListItem("-- ALL --"))
dlstYear.Items.Add(New ListItem(DateTime.Today.Year.ToString()))
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(-1).Year.ToString()))
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(-2).Year.ToString()))
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(+1).Year.ToString()))
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(+2).Year.ToString()))

在下拉列表中添加项目VB.NET

1 个答案: