SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: gradyus en Viernes 3 de Septiembre de 2004, 07:38

Título: Textbox
Publicado por: gradyus en Viernes 3 de Septiembre de 2004, 07:38

Saludos!

mi problema es el siguiente  :(
tengo varios textbox en dos colomnas, en la primera columna se pondran numeros en orden enpezando con el 1 en adelante solo cuando tenga datos en la segunda columna sino continuara el orden hasta donde tenga datos.

ejemplo:


primera columna        segunda colunma
          1                            datos
          2                            datos
          3                            datos
          4                            datos
          5                            datos
          6                            datos


primera columna        segunda colunma
          1                            datos
                                          " "
          2                            datos
          3                            datos
                                          " "
          4                            datos

espero que me entiendan con el ejemplo que los texbox de la primera columna se llenaran en orden solo cuando tengan datos la segunda columna si continua en el siguiente.

los textbox no son array.

primera columna        segunda colunma
        text1                         text2
        text3                         text4
        text5                         text6
 
alguien tiene alguna idea de como hacer que funcione Gracias!  :hola:

Título: Re: Textbox
Publicado por: Jose Arriagada en Sábado 4 de Septiembre de 2004, 16:35

Es un poco extraño tu problema, ya que con una matriz de textos, la cosa seria super sencilla, pero veo que aun hay gente que le gusta complicarse la vida. Pero bueno, eso es materia de otro foro.

Veamos si te sirve este codigo:

Pon en la primera columna  6 textbox llamados: text1,text2, ... , text6
Pon en la segunda columna 6 textbox llamados :txtdatos1,txtdatos2,... txtdatos6

Y usa el siguiente codigo para hacer lo que requieres:

i = 0
If Len(txtDatos1.Text) > 0 Then
    i = i + 1
    Text1.Text = i
Else
    Text1.Text = ""
End If
If Len(txtDatos2.Text) > 0 Then
    i = i + 1
    Text2.Text = i
Else
    Text2.Text = ""
End If
If Len(txtDatos3.Text) > 0 Then
    i = i + 1
    Text3.Text = i
Else
    Text3.Text = ""
End If
If Len(txtDatos4.Text) > 0 Then
    i = i + 1
    Text4.Text = i
Else
    Text4.Text = ""
End If
If Len(txtDatos5.Text) > 0 Then
    i = i + 1
    Text5.Text = i
Else
    Text5.Text = ""
End If
If Len(txtDatos6.Text) > 0 Then
    i = i + 1
    Text6.Text = i
Else
    Text6.Text = ""
End If

Título: Re: Textbox
Publicado por: gradyus en Domingo 5 de Septiembre de 2004, 05:51

Gracias jose!  :hola:

por responderme lo que pasa es que me falta mucha experiencia ya que solo me enseñaran lo basico.

Gracias por tu comentario ya que buscare tutoriales sobre el manejo de arrays.