Loop DropDownList..? 1

[kenjoswe]

Hi all,

I have five dropdownlists on a form.
I would like create a loop so that I can reduce the code. Something like:

Dim DDList As DropDownList
For intCount = 1 To 5
With DDList(intCount)
.DataSource = objDS.Tables(1)
.DataTextField = ("myText&quot
.DataValueField = ("myValue&quot
.DataBind()
End With
Next

/Kent J.

 

[mbhavani]

You can keep 5 DropDownLists,DataTables,TextFields, and Value fields in
4 different arraylists.

Within a loop you need to typecast the appropriately while assigning

Dim alLists As New ArrayList()
al.Add(dropList1)
al.Add(dropList22)
Dim alDataTab As New ArrayList()
'similarly add 5 datatables
Dim alValFields As New ArrayList()
'similarly add 5 value fields as strings
Dim alTextFields As New ArrayList()
'similarly add 5 text fields as strings
Dim dd1 As New DropDownList()
Dim i As Integer = 0
While (i < 2)

dd1 = New DropDownList()
dd1 = CType(alLists(i), DropDownList)
dd1.DataSource = CType(alDataTab(i), DataTable)

dd1.DataTextField = Convert.ToString(alTextFields(i))
dd1.DataBind()
i = i + 1
End While

 

[Isadore]

mb: excellent.