https://foro.gambas-es.org/viewtopic.php?f=1&t=7668&p=45993#p45993
-----------------------------------
shordi
Jueves, 29 Agosto 2019, 18:23

Re: Mismo Result Como Parametro De Varias Clases
-----------------------------------
A lo de la DB y la tabla he añadido esto:
[code linenumbers=false syntax=gambas]
Public Sub Form_Open()

   Dim tDef As Variant[]

   Me.center

   Connections["Connection1"].host = Desktop.GetDirectory("DESKTOP")
   Connections["Connection1"].Name = "econ.db"
   gConn = Connections["Connection1"]
   If Not Exist(Desktop.GetDirectory("DESKTOP") &/ "econ.db") Then
      mDB.CreaDatabase(Desktop.GetDirectory("DESKTOP"), "econ.db")
      gConn.Open()
      gConn.Exec("Create TABLE `Gastos` (`ID` INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, `Descripción` Text,`Importe` Float,`Cargos` Float,`Lanzamiento` Text,`Vencimiento` Text,`Realizado` Text,`Categoría` Text,`Subcategoría` Text,`Tarjeta` Text,`Cuenta` Text,`Observaciones` Text)")
   Else
      gConn.Open()
   Endif

   definirTableView
....
....
[/code]

A lo del Result... me has enviado la función que "rodea" el problema con eso de los Arrays por lo que no puedo mirar nada, pero me ha surgido una sospecha. 

La pregunta es:
En esa secuencia de funciones que recorrían el Result una tras otra...¿Volvías al principio alguna vez?
Después de un 
[code linenumbers=false syntax=gambas]while oResult.available 
...
...
wend
[/code]
El Result queda Unavailable, o sea no está apuntando a ningún registro porque "se ha pasado". Hay que volver al principio antes de hacer nada con él 
[code linenumbers=false syntax=gambas]oResult.MoveFirst()[/code]


