Ver Mensaje Individual
  #5 (permalink)  
Antiguo 15/07/2009, 06:31
Raikir0
 
Fecha de Ingreso: julio-2009
Mensajes: 1
Antigüedad: 15 años, 3 meses
Puntos: 0
Respuesta: Trabajar con Arrays (Buscar, Añadir, Borrar)

Yo soy una persona con el mismo problema
el codigo del programa vendria a ser asi:
(esta planteado en dos forms)
Form1
Cita:
Private Sub Command1_Click()

Dim codigo(100) As String
Dim nombre(100) As String
Dim domicilio(100) As String
Dim sueldo(100) As String
Dim horas(100) As String
Dim sueldototal(100) As String

Dim i As Integer
For i = 1 To 100

'Guardar'
codigo(i) = Text1.Text
nombre(i) = Text2.Text
domicilio(i) = Text3.Text
sueldo(i) = Text4.Text
horas(i) = Text5.Text
sueldototal(i) = Text6.Text

'Mostrar'
Form2.Text1.Text = codigo(i)
Form2.Text2.Text = nombre(i)
Form2.Text3.Text = domicilio(i)
Form2.Text4.Text = sueldo(i)
Form2.Text5.Text = horas(i)
Form2.Text6.Text = sueldototal(i)
Next

'Limpiar'
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

Private Sub Command2_Click() 'cambiar de formulario'
Form1.Visible = False
Form2.Visible = True
End Sub
Form2
Cita:
Aqui tenemos en la interficie grafica:
los respectivos textbox donde se muetran los vectores y 3 botones
uno: k es para volver al form1:
Form1.Visible = False
Form2.Visible = True

i los otros dos para navegar entre los trabajadores introducidos en los vectores declarados anteriormente (Ese es mi problema no se como hacer para poder desplazarme entre las secciones de los vectores)
Porfavor ayuda!!