Ayuda con ciclo

[luis1629]

Se que hay algo mal, pueden ayudarme por favor

If dt.Rows.Count = 19 Then 'Verifica que esten todos los registros por número de especie
For d = 4 To 19

NombreControl = "txt_Pregunta" & d & "_1"

Me.Controls(NombreControl).ToString() = dt.Rows(0)("NumAnimal")

"ahi me anda error"

Next d

saludos

[Bluesman74cl]

Puedes poner lgun tipo de excepción que te esté dando??? en definitiva el Error, qué error te da?

[luis1629]

En realidad ya encontré como hacerlo, lo que pasa es que para no repetir tantas veces este bloque de codigo:

Me.txt_Pregunta4_1.Text = dt.Rows(0)("NumAnimal")
Me.txt_Pregunta4_2.Text = dt.Rows(0)("TotalPeso")
Me.txt_Pregunta4_3.Text = dt.Rows(0)("TotalKilo")
Me.txt_Pregunta4_4.Text = dt.Rows(0)("NumVista")
Me.txt_Pregunta4_5.Text = dt.Rows(0)("TotalVista")

Me.txt_Pregunta5_1.Text = dt.Rows(1)("Nro_Animales_Peso")
Me.txt_Pregunta5_2.Text = dt.Rows(1)("Valor_Total_Peso")
Me.txt_Pregunta5_3.Text = dt.Rows(1)("Peso_Vivo_Total_Peso")
Me.txt_Pregunta5_4.Text = dt.Rows(1)("Nro_Animales_Vista")
Me.txt_Pregunta5_5.Text = dt.Rows(1)("Valor_Total_Vista")

La intención es hacer el codigo más chico, por eso quise hacer un ciclo.

Cualquier cosa te aviso.

[Bravenap]

Muy buenas.

Lo primero de todo, si el número de filas es 19 el índice de la colección sólo puede llegar hasta el 18, ya que empieza con índice 0.

Si siempre vas a obtener 19 registros pones:

Código vb:

For d = 4 To 18
...
Next
 

Si puede que se obtenga otro número de registros lo mejor es que pongas siempre:

Código vb:

For d = 4 To dt.Rows.Count - 1
...
Next
 

Por último, en el código que tenías antes, en cada vuelta del bucle buscabas el control, que me imagino sería un textbox, pero no verificabas si realmente existía además que con ToString() no le estás dando valor a la propiedad Text. Yo te recomiendo lo siguiente (fíjate también que tienes que ir cambiando el índice de la fila en la que estás, ya que si no siempre vas a asignar el mismo valor):

Código vb:

For d = 4 To dt.Rows.Count - 1
NombreControl = "txt_Pregunta" & d & "_1"
If Not Me.FindControl(NombreControl) Is Nothing Then
  CType(Me.FindControl(NombreControl), TextBox).Text = dt.Rows(d)("NumAnimal")
End If
Next
 

Un saludo.