[SOLUCIONADO] obtener valor de dropdownlist dinamico

[maialenlopez]

Hola; tengo una pagina aspx en la que genero controles dinámicos y los creo así:

Código aspx:

<asp:Button ID="Button1" runat="server" Text="Añadir Concepto" /> 
    <br /> 
    <asp:PlaceHolder ID="phDinamicControls" runat="server">
    </asp:PlaceHolder>
 

Código asp.net:

Private Property QuantityDinamicControls() As Integer
        Get
            If ViewState("Quantity") = Nothing Then
                ViewState("Quantity") = 0
            End If
            Return DirectCast(ViewState("Quantity"), Integer)
        End Get
        Set(ByVal value As Integer)
            ViewState("Quantity") = value
        End Set
    End Property
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Me.QuantityDinamicControls += 1
        Me.validacionHojaVisas.Text = ViewState("Quantity")
    End Sub
 
    Protected Overloads Overrides Sub CreateChildControls()
        If Page.IsPostBack Then GenerateControls()
    End Sub
 
    Private Sub GenerateControls()
        Dim Quantity As Integer = 0
        While Quantity <= Me.QuantityDinamicControls
            Dim concepto As New DropDownList()
            Dim facturableList As New RadioButtonList()
            Dim txt1, txt2, txt3, txt4 As New TextBox()
            Dim descripcion, facturable, orden, proyecto, importe, validacionFacturable, validacionOrden, validacionProyecto, validacionImporte As New Label()
            concepto.Attributes.Add("style", "margin-bottom: 10px")
            concepto.ID = "concepto" + (Quantity + 1).ToString()
            concepto.SelectedIndex = ViewState("concepto_index")
            'AddHandler concepto.SelectedIndexChanged, AddressOf concepto_SelectedIndexChanged
            'concepto.AutoPostBack = True
            descripcion.Attributes.Add("style", "margin-bottom: 10px")
            descripcion.ID = "descricion" + (Quantity + 1).ToString()
            descripcion.Text = "Descripción:"
            txt1.Attributes.Add("style", "margin-bottom: 10px")
            txt1.ID = "txt1" + (Quantity + 1).ToString()
            txt1.Text = "Descripción..."
            txt1.BackColor = Drawing.Color.Silver
            txt1.Width = 250
            facturable.Attributes.Add("style", "margin-bottom: 10px")
            facturable.ID = "facturable" + (Quantity + 1).ToString()
            facturable.Text = "Facturable:"
            facturableList.Attributes.Add("style", "margin-bottom: 10px")
            facturableList.ID = "facturableList" + (Quantity + 1).ToString()
            facturableList.Items.Add("SI")
            facturableList.Items.Add("NO")
            facturableList.Enabled = False
            facturableList.RepeatDirection = RepeatDirection.Horizontal
            facturableList.RepeatLayout = RepeatLayout.Flow
            validacionFacturable.Attributes.Add("style", "margin-bottom: 10px")
            validacionFacturable.ID = "validacionFacturable" + (Quantity + 1).ToString()
            validacionFacturable.Text = ""
            validacionFacturable.ForeColor = Drawing.Color.Red
            orden.Attributes.Add("style", "margin-bottom: 10px")
            orden.ID = "orden" + (Quantity + 1).ToString()
            orden.Text = "Orden:"
            txt2.Attributes.Add("style", "margin-bottom: 10px")
            txt2.ID = "txt2" + (Quantity + 1).ToString()
            txt2.Text = "Orden..."
            txt2.BackColor = Drawing.Color.Silver
            txt2.Width = 90
            importe.Attributes.Add("style", "margin-bottom: 10px")
            importe.ID = "importe" + (Quantity + 1).ToString()
            importe.Text = "Importe:"
            txt4.Attributes.Add("style", "margin-bottom: 5px")
            txt4.ID = "txt4" + (Quantity + 1).ToString()
            txt4.Text = "Importe..."
            'txt4.AutoPostBack = True
            txt4.BackColor = Drawing.Color.Silver
            txt4.Width = 50
            AddHandler txt4.TextChanged, AddressOf Me.txt4_TextChanged
            validacionImporte.Attributes.Add("style", "margin-bottom: 10px")
            validacionImporte.ID = "validacionImporte" + (Quantity + 1).ToString()
            validacionImporte.Text = ""
            validacionImporte.ForeColor = Drawing.Color.Red
 
            phDinamicControls.Controls.Add(concepto)
            phDinamicControls.Controls.Add(New LiteralControl("&nbsp;"))
            cargarComboBoxConceptos(concepto)
            phDinamicControls.Controls.Add(New LiteralControl("&nbsp;"))
            phDinamicControls.Controls.Add(descripcion)
            phDinamicControls.Controls.Add(New LiteralControl("&nbsp;"))
            phDinamicControls.Controls.Add(txt1)
            phDinamicControls.Controls.Add(New LiteralControl("&nbsp;"))
            phDinamicControls.Controls.Add(facturable)
            phDinamicControls.Controls.Add(New LiteralControl("&nbsp;"))
            phDinamicControls.Controls.Add(facturableList)
            phDinamicControls.Controls.Add(validacionFacturable)
            phDinamicControls.Controls.Add(New LiteralControl("&nbsp;"))
            phDinamicControls.Controls.Add(importe)
            phDinamicControls.Controls.Add(New LiteralControl("&nbsp;"))
            phDinamicControls.Controls.Add(txt4)
            phDinamicControls.Controls.Add(validacionImporte)
            phDinamicControls.Controls.Add(New LiteralControl("<br/>"))
            phDinamicControls.Controls.Add(New LiteralControl("<br/>"))
            Quantity += 1
        End While
    End Sub
 
    Private Function GetTxtControls() As String
        Dim sb As New StringBuilder
        Dim i As Integer = 0
 
        While i <= Me.QuantityDinamicControls
            Dim concepto As String = "concepto" + (i + 1).ToString()
            Dim validacionFacturable As String = "validacionFacturable" + (i + 1).ToString()
            Dim validacionImporte As String = "validacionImporte" + (i + 1).ToString()
            Dim facturableList As String = "facturableList" + (i + 1).ToString()
            Dim descripcion As String = "descripcion" + (i + 1).ToString()
            Dim facturable As String = "facturable" + (i + 1).ToString()
            Dim importe As String = "importe" + (i + 1).ToString()
            Dim txt1 As String = "txt1" + (i + 1).ToString()
            Dim txt4 As String = "txt4" + (i + 1).ToString()
 
            Dim facturableListControl As RadioButtonList = TryCast(phDinamicControls.FindControl(facturableList), RadioButtonList)
            Dim conceptoControl As DropDownList = TryCast(phDinamicControls.FindControl(concepto), DropDownList)
            Dim validacionFacturableControl As Label = TryCast(phDinamicControls.FindControl(validacionFacturable), Label)
            Dim validacionImporteControl As Label = TryCast(phDinamicControls.FindControl(validacionImporte), Label)
            Dim descripcionControl As Label = TryCast(phDinamicControls.FindControl(descripcion), Label)
            Dim facturableControl As Label = TryCast(phDinamicControls.FindControl(facturable), Label)
            Dim importeControl As Label = TryCast(phDinamicControls.FindControl(importe), Label)
            Dim txtControl1 As TextBox = TryCast(phDinamicControls.FindControl(txt1), TextBox)
            Dim txtControl2 As TextBox = TryCast(phDinamicControls.FindControl(txt2), TextBox)
            Dim txtControl3 As TextBox = TryCast(phDinamicControls.FindControl(txt3), TextBox)
            Dim txtControl4 As TextBox = TryCast(phDinamicControls.FindControl(txt4), TextBox)
 
            sb.Append(validacionFacturableControl.Text & "<br />")
            sb.Append(validacionImporteControl.Text & "<br />")
            sb.Append(facturableListControl.Text & "<br />")
            sb.Append(conceptoControl.Text & "<br />")
            sb.Append(descripcionControl.Text & "<br />")
            sb.Append(facturableControl.Text & "<br />")
            sb.Append(ordenControl.Text & "<br />")
            sb.Append(proyectoControl.Text & "<br />")
            sb.Append(importeControl.Text & "<br />")
            sb.Append(txtControl1.Text & "<br />")
            sb.Append(txtControl2.Text & "<br />")
            sb.Append(txtControl3.Text & "<br />")
            sb.Append(txtControl4.Text & "<br />")
 
            i += 1
        End While
        Return sb.ToString
 
    End Function
 

Necesito que cuando txt4_textChanged me coja el valor que tiene el DropdownList.

Código vb.net:

Private Sub txt4_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim importeSelect As String
        Dim tb As TextBox = DirectCast(sender, TextBox)
 
        importeSelect = tb.Text
 
        [B]COGER EL VALOR DEL DROPDOWNLIST[/B]
 
End Sub
 

Como puedo hacerlo?

[Malenko]

Te tendría que funcionar algo como

Código:

DropDownList.SelectedItem.Value

[maialenlopez]

Iniciado por Malenko

Te tendría que funcionar algo como

Código:

DropDownList.SelectedItem.Value

No me deja hacer eso ya que no sabe que dropdownlist es

[Kirito]

Hola!!!
Veo que el DropDown y los textBox les das como ID un nombre que los identifica las el valor de tu variable (Quantity +1). Yo lo que haria es modificar la forma como les das el ID como por ejemplo poniendo un "_ " entre el nombre que los identifica y el valor, con el fin de poder obtener ese valor de forma mas sencilla. Te digo esto porque teniendo ese valor podrias utilizar el metodo FindControl para obtener el valor del DropDown que deseas... algo asi:

- En tu metodo txt4_TextChanged obtienes el ID al TextBox que genero el evento. Ya estas haciendo el cast del sender a TextBox solo seria obtener su ID.
- Luego podrias hacer utilizar el metodo Split de la clase String y utilizas como caracter de separacion el valor que decidas por ejemplo "_", asi en la pos 0 del vector te quedaria la palabra txt4 y el la pos 1 el numero del Text que genero el evento.
- A continuacion puedes utilizar la propiedad parent del Textbox y en ella encuentras el metodo FindControl que recibe un string como parametro. Tu le pasarias como parametro el ID que deberia corresponder al DropDownList, por ejemplo "concepto_"+el numero que obtuviste del text. Este metodo retorna un objeto de tipo Control y tu le puedes hacer el cast a DropDownList.
- Teniendo el DropDown puedes recuperar su Selectedvalue o SelectedItem y pasarselo al TextBox

Espero haberte ayudado y cualquier duda comentas.
Saludos