Tengo una clase 'Alumnos'
y en un form una coleccion 'coleccionAlumnos', hasta ahí bien... de todas formas aquí el código:
Código:
El tema es que en el form tengo dos opciones:Alum = New Alumnos(CInt(txtCodigo.Text), txtNombre.Text, txtDni.Text, CDate(txtFechaAlta.Text), comboCurso.Text) coleccionAlumnos.Add(Alum, txtCodigo.Text) MsgBox("El alumno se ha sido dado de alta satisfactoriamente")
Después de rellenar los datos del formulario y guardarlos, tengo que:
a - Buscar alumnos por su codigo.
b - Buscar alumnos por su nombre.
a: 'MUESTRA EL RESULTADO EN LAS MISMAS CASILLAS DEL FORMULARIO:
'
Código:
Esto me funciona a la perfección, pero el buscar por NOMBRE¿? no. Dim buscoCodigo As String buscoCodigo = InputBox("Introduzca el código del alumno que desea buscar") TabAlumno.Visible = True ' ahora busca, y utiliza try por si no encuentra nada que salga un error. Try With coleccionAlumnos(buscoCodigo) txtCodigo.Text = .elCodigo txtNombre.Text = .elNombre txtDni.Text = .elDni txtFechaAlta.Text = .laFecha comboCurso.Text = .elCurso End With Catch MsgBox("¡ No existe ese alumno !") End Try
BUSCO NOMBRE:
Código:
Dim buscoNombre As String buscoNombre = InputBox("Introduzca el nombre del alumno que desea buscar") TabAlumno.Visible = True ' ahora busca, y utiliza try por si no encuentra nada que salga un error. coleccionAlumnos.GetEnumerator() Try With coleccionAlumnos(buscoNombre) txtCodigo.Text = .elCodigo txtNombre.Text = .elNombre txtDni.Text = .elDni txtFechaAlta.Text = .laFecha comboCurso.Text = .elCurso End With Catch MsgBox("¡ No existe ese nombre !") End Try
Creo que es por esto que incluyo en el primer código (el de guardar):
Código:
Puesto que ahí le estoy diciendo que el indice sea txtCodigo.text ¿?¿coleccionAlumnos.Add(Alum, txtCodigo.Text)
Espero haberme explicado medianamente bien, no se como puedo hacerlo, si alguien me puede explicar como le digo que busque "buscoNombre" en todos los nombres que hayan almacenados en esa colección, me sería muy útil. Me va a explotar la cabeza con la tontería esta.
Muchas gracias y un saludo.