• Miércoles 6 de Noviembre de 2024, 04:23

Autor Tema:  Almacenar Datos En List  (Leído 1267 veces)

rodovr

  • Miembro activo
  • **
  • Mensajes: 27
    • Ver Perfil
Almacenar Datos En List
« en: Martes 18 de Octubre de 2005, 01:02 »
0
Hola amigos espero y alguien pueda orientarme, tengos 2 forms una principal y otra secundaria, en la secundaria guardo datos en un list al momento de cerrar el form para que me regrese al form principal con el siguiente codigo:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
For i = 0 To List3.ListCount - 1

If i = List3.ListCount - 1 Then Text5.Text = Text5.Text & List3.List(i) Else Text5.Text = Text5.Text & List3.List(i) & Chr(13) + Chr(10)
Next i

Open App.Path & "\save.dat" For Output As #1
Print #1, Text5
Close #1

If StopSearch = False Then StopSearching
StopSearch = True
End

End Sub

Mi problema es que al darle click en el aspa, me cierra todo el proyecto (las 2 forms) y quiero regresar al formulario principal, ya he metido principal.Show al final del codigo que les puse y he hecho otras cosas pero no me lo muestra, creo que mi error esta en la propiedad UnloadMode pero no encuentro la solucion espero y alguien pueda darme alguna pista para solucionarlo.

Gracias.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Almacenar Datos En List
« Respuesta #1 en: Martes 18 de Octubre de 2005, 02:27 »
0
Revisa el código, tienes una instrucción END en la penúltima línea. Retira esta instrucción.

Te recomiendo estructures más tu código, este tipo de error que tienes podrías evitarlo, ya que es más fácil de leer y revisar cuando está estructurado.
Ejemplo:
Código: Text
  1. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  2.     For i = 0 To List3.ListCount - 1
  3.         If i = List3.ListCount - 1 Then
  4.             Text5.Text = Text5.Text & List3.List(i)
  5.         Else
  6.             Text5.Text = Text5.Text & List3.List(i) & Chr(13) + Chr(10)
  7.         End If
  8.     Next i
  9.  
  10.     Open App.Path & "\save.dat" For Output As #1
  11.     Print #1, Text5
  12.     Close #1
  13.  
  14.     If StopSearch = False Then
  15.         StopSearching
  16.     End If
  17.     StopSearch = True
  18. End Sub
  19.  
  20.  

Revisa las últimas líneas del código ya que a lo mejor quisiste escribir ENDIF en lugar del END.

 :comp:

rodovr

  • Miembro activo
  • **
  • Mensajes: 27
    • Ver Perfil
Re: Almacenar Datos En List
« Respuesta #2 en: Martes 18 de Octubre de 2005, 23:29 »
0
Muchas gracias, me sirvio a la perfeccion.

Y hare lo que me recomiendas para no tener tantos errores.

Muchas gracias por tu apoyo.

Nos vemos por aqui.