Ver Mensaje Individual
  #3 (permalink)  
Antiguo 07/10/2004, 11:18
noah_242
 
Fecha de Ingreso: agosto-2004
Mensajes: 234
Antigüedad: 19 años, 9 meses
Puntos: 1
Funciona bien tu codigo pero el mio...

Hola de nuevo¡
He probado tu codigo,me funciona bien,gracias,me crea las 5 etiquetas,tenias razon en el mio la decrementaba la y y se me iba la etiqueta al cielo,pero resulta que a mi solo me crea 1,asi q debe ser fallo del dataset supongo.Te comento,mi aplicacion necesita generar una serie de etiquetas las cuales deben de coger su nombre de un dataset en el cual tengo una consulta,pero no me funciona,t paso el codigo entero porque seguro que hay un error,de nuevo t doy las gracias.Saludos


Dim a, b, y, i As Integer

a = 0
y = 50


Me.txt_fecha.Text = Today



Me.MySql_da_consulta_salas.Fill(DataSet2_consulta1 )
b = Me.DataSet2_consulta1.salas.Count - 1




For a = 1 To b

Dim prueba As New Label()

prueba.Location = New Point(25, y)
prueba.Text = Me.DataSet2_consulta1.salas.Rows(a).Item(1).ToStri ng & i
Me.Controls.Add(prueba)

y = y + 25


Next