Funciones para llenado DropDownList

[jsrc1990]

Él a lo que se refiere es a esto, que pena que no te pude escribir en el otro post que hicistes en el de hannah_banana ya que donde trabajo tienen los foros bloqueados y aunque me la safe XD con ultrasurf... tuve problemas, aqui va:

Tienes 2 Posibilidades:

Crear un Metodo la cual cargue de UN DropDownList (El que tu quieras) al invocar el susodicho:

Código ASP:

Llenar_DropDownLists(TuDropDownList1, "Tu_Campo_Texto", "Tu_Campo_Valor")
Llenar_DropDownLists(TuDropDownList2, "Tu_Campo_Texto", "Tu_Campo_Valor")
Llenar_DropDownLists(TuDropDownList3, "Tu_Campo_Texto", "Tu_Campo_Valor")
 

Código ASP:

Protected Sub Llenar_DropDownLists(ByVal DropDownListLlenador As DropDownList, ByVal Texto As String, ByVal Valor As String)
DropDownListLlenador.DataSource = "Tu_Source"
DropDownListLlenador.DataTextField = Texto
DropDownListLlenador.DataValueField = Valor
DropDownListLlenador.DataBind()
End Sub
 

o bien crear un Metodo la cual contenga como parametro un Array de Dropdownlist's la cual te cargue VARIOS a la vez:

Código ASP:

Llenar_DropDownLists(New DropDownList() {TuDropDownList1, TuDropDownList2, TuDropDownList3}, New String() {"Tu_Texto_DropDownList1", "Tu_Texto_DropDownList2", "Tu_Texto_DropDownList3"}, New String() {"TuValor_DropDownList1", "TuValor_DropDownList2", "TuValor_DropDownList3"})
 

Código ASP:

Protected Sub Llenar_DropDownLists(ByVal DropDownListLlenador() As DropDownList, ByVal Textos() As String, ByVal Valores() As String)
For Indice = 0 To DropDownListLlenador.Length - 1
DropDownListLlenador(Indice).DataSource = "Tu_Source"
DropDownListLlenador(Indice).DataTextField = Textos(Indice)
DropDownListLlenador(Indice).DataValueField = Valores(Indice)
DropDownListLlenador(Indice).DataBind()
Next
End Sub
 

Si quieres ademas que te retorne un valor que diga cuantos items se crearon haz una function asi:

Código ASP:

Llenar_DropDownLists(TuDropDownList1, "Tu_Campo_Texto", "Tu_Campo_Valor")
Llenar_DropDownLists(TuDropDownList2, "Tu_Campo_Texto", "Tu_Campo_Valor")
Llenar_DropDownLists(TuDropDownList3, "Tu_Campo_Texto", "Tu_Campo_Valor")
 

Código ASP:

Protected Function Llenar_DropDownLists(ByVal DropDownListLlenador As DropDownList, ByVal Texto As String, ByVal Valor As String) As Integer
DropDownListLlenador.DataSource = "Tu_Source"
DropDownListLlenador.DataTextField = Texto
DropDownListLlenador.DataValueField = Valor
DropDownListLlenador.DataBind()
Return DropDownListLlenador.Items.Count
End Function
 

y en Array que retorne el numero de items de cada dropdownlist:

Código ASP:

Llenar_DropDownLists(New DropDownList() {TuDropDownList1, TuDropDownList2, TuDropDownList3}, New String() {"Tu_Texto_DropDownList1", "Tu_Texto_DropDownList2", "Tu_Texto_DropDownList3"}, New String() {"TuValor_DropDownList1", "TuValor_DropDownList2", "TuValor_DropDownList3"})
 

Código ASP:

Protected Function Llenar_DropDownLists(ByVal DropDownListLlenador() As DropDownList, ByVal Textos() As String, ByVal Valores() As String) As Integer()
Dim Numeros_de_Items(DropDownListLlenador.Length - 1) As Integer
For Indice = 0 To DropDownListLlenador.Length - 1
DropDownListLlenador(Indice).DataSource = "Tu_Source"
DropDownListLlenador(Indice).DataTextField = Textos(Indice)
DropDownListLlenador(Indice).DataValueField = Valores(Indice)
DropDownListLlenador(Indice).DataBind()
Numeros_de_Items(Indice) = DropDownListLlenador(Indice).Items.Count
Next
Return Numeros_de_Items
End Function
 

Espero haberte ayudado

Jsrc1990