Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/06/2008, 14:17
Pollodrilo
 
Fecha de Ingreso: junio-2008
Mensajes: 5
Antigüedad: 16 años, 9 meses
Puntos: 0
Estructura anidada y arreglos

hola buenas estoy aprendiendo este lenguaje y me dieron un trabajo en el cual me he quedado estancado en este punto espero si me pueden dar una mano no creo que sea algo muy complicado.

nesesito crear una clase que tenga estos atributos
ID integer
Nombre String
y estos metodos

Guardar
Recorrer
Eliminar

devo de aplicar una estructura y arreglos que es lo que nos estan pasando ahora

asi que hice algo como esto

Cita:
Public Class Proveedor

Public Structure prov
Public id() As Integer
Public nombres() As String
End Structure


Public Sub guardar(ByVal id2 As Integer, ByVal nombres2 As String)
Dim respuesta As Boolean
respuesta = True
Dim largo As Integer
Dim prov As Proveedor.prov
ReDim prov.id(0)
ReDim prov.nombres(0)


largo = prov.id.Length - 1


If String.IsNullOrEmpty(prov.nombres(0)) = True Then
prov.id(largo) = id2
prov.nombres(largo) = nombres2
Else
largo = largo + 1
ReDim prov.id(largo)
ReDim prov.nombres(largo)
prov.id(largo) = id2
prov.nombres(largo) = nombres2
End If
ahi declare la estructura y ingreso los datos desde un formulario
el problema lo tengo aqui cuando deseo ver los datos me dice de error:

la variable id se usa antes que se le haya asignado un valor, podria darse una exepcion nula en tiempo de ejecucion

Cita:
Public Function recorrer(ByVal largo As Integer)
Dim respuesta As Boolean
Dim prov As Proveedor.prov
Dim nombre As String
Dim id As Integer

Try
nombre = prov.id(largo)
id = prov.nombres(largo)
Catch ex As Exception
respuesta = False

End Try
Return respuesta
End Function
yo creo que el problema esta en que trato de mostrar y no hay nada en la estructura, pero tambien cuando trato de ingresar un dato y luego ver si el dato esta ingresado me sale el mismo error

o si no, lo otro es que no se como entrar a la estructura desde una funcion, guardar en memoria eso y luego entrar desde otra funcion y hacer uso de esa informacion

agradeceria mucho su ayuda gracias

Última edición por Pollodrilo; 04/06/2008 a las 14:29