Carbon no lo he podido codificar. El proble lo tengo cuando tengo que pasar los datos del TDU/UDT al arrays dinamico; Es decir, no se como rrecorrer la variable de accesos (biblioteca) asignandolo al arrays dinamico libros que es el que va guardar el registro.
Te muestro como queda:
Este codigo esta asociado al boton guardar del formulario.
Código vb:
Ver originalPrivate Sub GuardarCmd_Click()
Dim i As Integer
'Array dinamico
Dim libros() As TDUBiblioteca
'Dim biblioteca(6)
Dim biblioteca() As TDUBiblioteca
'Asigno los datos cargados
biblioteca(0).titulo = TituloTxt.Text
biblioteca(1).autores = AutoresTxt.Text
biblioteca(2).editorial = EditorialTxt.Text
biblioteca(3).anio = AnioTxt.Text
biblioteca(4).paginas = PaginasTxt.Text
biblioteca(5).comentarios = ComentariosTxt.Text
For i = 0 To 5
libros(i) = biblioteca(i)
Next i
End Sub
Este es un modulo estandard:
Código vb:
Ver originalOption Explicit
'Creo TDU
Public Type TDUBiblioteca
titulo As String * 50
autores As String * 50
editorial As String * 50
anio As Long
paginas As Long
comentarios As String * 250
End Type
Aqui declaro el TDU
El error, y es una duda que tengo es sobre la variable de acceso biblioteca cuando la recorro con el FOR. No se si deberia declarar como un array para rrecorrerla o si deberia recorrerla por posiciones cosa que se me acaban las ideas. He tratado de varias formas y tambien llegue a la conclusion de que tal vez deberia declarar una variable para los tipos de datos que paso de la variable de acceso al array dinamico libros, o no.
Gracias de ante mano !