Как я могу заполнить выпадающий список данными?

Question

У меня есть dropdownlist, который я хочу заполнить определенным значением и конкретным текстом. Я не использую datasource, но я вручную делаю соединение и получаю данные в коде. Как я могу заполнить это dropdownlist? Если я прочитаю данные с помощью datareader и увеличиваю массив, я получаю либо значение, либо текст. Это то, что я до сих пор, но это совершенно неправильно:

//connection string etc goes here 
Dbcmd2.CommandText = "select dept,deptname from table" 

Dim dr As SqlClient.SqlDataReader 
    dr = Dbcmd2.ExecuteReader 
    Dim i As Integer 
    Dim arydept As New arraylist 
    While dr.Read 
     arydept.Add(dr1("dept")) 
    End While 

    ddldept.datasource = arydept 
    ddldept.DataTextField = ???????? 
    ddldept.DataValueField = dr("dept") 
    ddldept.DataBind() 

Как я могу получить эту работу без того, чтобы создать объект класса для Department? В любом случае, или я должен создать объект класса?

Answer 1

Есть ли какая-то конкретная причина, по которой вы можете сделать это обычным способом?

Dbcmd2.CommandText = "select dept,deptname from table" 
Dim dr As SqlClient.SqlDataReader = Dbcmd2.ExecuteReader 
While dr.Read() 
    ddldept.Items.Add(new ListItem(dr("deptname"),dr("dept")) 
End While 
' ddldept is now populated with all items from the query 

Answer 2

Вместо использования ArrayList, если вы используете объект словаря, вы можете сохранить имя и значение.

Что-то, как это должно сделать это

Dim All As New Dictionary(Of String, String) 
All.Add("Test", 1) 
All.Add("Test2", 2) 
test.DataSource = All 
test.DataTextField = "Key" 
test.DataValueField = "Value" 
test.DataBind() 

Answer 3

Вместо того, чтобы использовать подход DataSource/DataBind(), вы можете просто создать элементы списка и добавить их в DropDownList.

dr = Dbcmd2.ExecuteReader 
    Dim i As Integer 
    Dim arydept As New arraylist 

    ddldept.Items.Clear() 
    While dr.Read 
     ddldept.Items.Add(new ListItem(dr1("dept"), dr1("dept"))) 
    End While 

Answer 4

Как насчет этого?

ddldept.Items.Clear() 

While dr.Read 
    ListItem item = New ListItem() 
    item.Text = dr("deptname").ToString() 
    item.Value = dr("dept").ToString() 

    ddldept.Items.Add(item) 
End While 

Answer 5

Вы уже используете читателя так просто поп, что в DataTable и обязывать:

//connection string etc goes here 
Dbcmd2.CommandText = "select dept,deptname from table" 

Dim dr As SqlClient.SqlDataReader 
dr = Dbcmd2.ExecuteReader 
Dim myData as DataTable 
If dr.HasRows Then 
    myData.Load(dr) 
End If 

ddldept.datasource = myData 
ddldept.DataTextField = myData("myTextField") 
ddldept.DataValueField = myData("dept") 
ddldept.DataBind()