Formulario web asp

[ronoviedo]

Hola a todos . Quiero hacer algo en unos formularios web, y la verdad es que no sé si es posible hacerlo como lo he pensado.
en el codebehind de un formulario se pueden definir los atributos de los campos (en este caso visual basic) de esta forma

Código:

Me.Campo1.text = "hola"

En cada formulario (que son muchos) puedo llenar la información de esta manera. Al mismo tiempo en la base de datos tengo todos los nombres de aquellos campos guardados y un procedimiento almacenado que me devuelve el nombre del campo con su contenido.

Teniendo lo anterior en cuenta, me imaginé que era posible hacer una función que tome cada nombre de campo y su contenido y lo agregue con una función de manera que resulta mucho más rápido y con un código mas limpio, de esta forma:

Código:

For count = 0 To datoFormPag.Rows.Count - 1
                            strCampo = datoFormPag.Rows(count).Item("cam_cod")
                            Me.strCampo.Text = Convert.ToString(datoFormPag.Rows(count).Item("res_respuesta"))

                        Next

Bueno evidentemente que lo anterior no funciona porque se está intentando poner un string en el lugar de un objeto. Y eso, mi consulta es que si es posible hacer lo que he expuesto, de esta u otra manera.

De antemano gracias por leer y colaborar

[moNTeZIon]

Muy buenas.
Bien, la idea es buena, per fallas en algún concepto.
El código deberías convertirlo en algo parecido a esto:

Código VB.NET:

Dim miControl As Control
For count = 0 To datoFormPag.Rows.Count - 1
  strCampo = datoFormPag.Rows(count).Item("cam_cod")
  If Not Me.Controls(strCampo) Is Nothing Then
    miControl = Me.Controls(strCampo)
    miControl.Text = Convert.ToString(datoFormPag.Rows(count).Item("res_respuesta"))
  End If
Next
 

Espero que te sirva.
Saludos!

[ronoviedo]

Iniciado por moNTeZIon

Muy buenas.
Bien, la idea es buena, per fallas en algún concepto.
El código deberías convertirlo en algo parecido a esto:

Código VB.NET:

Dim miControl As Control
For count = 0 To datoFormPag.Rows.Count - 1
  strCampo = datoFormPag.Rows(count).Item("cam_cod")
  If Not Me.Controls(strCampo) Is Nothing Then
    miControl = Me.Controls(strCampo)
    miControl.Text = Convert.ToString(datoFormPag.Rows(count).Item("res_respuesta"))
  End If
Next
 

Espero que te sirva.
Saludos!

Muchas gracias, esto me orienta por lo menos porque no conocía esta clase Control. No funciona el código porque Me.Controls(strCampo) necesita un entero ¿Existe una forma de llamar un control por su id de forma que resulte como un array asociativo?

[ronoviedo]

ya me resultó, haciendo unas pequeñas modificaciones

Código vb:

Dim miControl As Control
                        For count = 0 To datoFormPag.Rows.Count - 1
                            strCampo = datoFormPag.Rows(count).Item("cam_cod")
                            If Me.Controls.Count > 1 Then
                                miControl = Me.FindControl(strCampo)
                                If miControl.GetType.ToString = "System.Web.UI.WebControls.TextBox" Then
                                    CType(miControl, TextBox).Text = datoFormPag.Rows(count).Item("res_respuesta")
                                End If
                            End If
                        Next