Saludos al foro, aprovechando la cuarentena he retomado gambas y me he encontrado con un problema al que no encuentro una solución elegante.

Me explico, una función que realiza la carga de un componente (treeview, gridview, columnview) a partir de los datos de una base de datos. En el caso de que todo sea correcto retorna TRUE y sino FALSE.
Para controlar errores de programación utilizo Finally-Catch y además una variable boolean para controlar lógica de programa.

La función sería algo parecido a esto:



El problema está en que, aunque no haya ningún error de programación dentro de la función, cuando llega a la linea: "If Error.Code <= 0 Then Return bControl" si existe un error heredado.
Viene de un "Try" del control TreeView, con debug obtengo:
     Error: 13: Null object
     Módulo: _TreeView_Item._AddChild.136

No se me ocurre más alternativa que, o bien incluir justo antes del "Finally" un Error.Clear(). Asumiendo que si llega hasta ahí la ejecución no hay error de programación. O parchear el código de los controles para limpiar los errores generados por "Try" y volver a construirlos. Ninguna de las dos me convence al 100%.

Subo una pequeña aplicación donde se ve el problema, tiene un control TreeView a la izquierda donde carga Autonomías-Provincias de España desde una base de datos SQLite. Cuando se selecciona una provincia carga un ColumnView con Poblaciones-Codigos postales-Direcciones. La función de carga del TreeView limpia el error del control antes del "Finally", la función de carga del ColumnView no, por tanto el "return" por defecto es False.

Estoy usando gambas 3.14.3. Cualquier sugerencia es bienvenida y gracias de antemano.
Un saludo. H.

 

Programa ejemplo:

podrías hacer un video con el error y subirlo?

a ti te sale esta ventana en el error?


 

el error lo tira en esta zona:

comenta todo el código de finality, y purga el error que hay primero

comente todas las lineas de finality y tira error: null key

 

arregla eso primero

v3ctor escribió:  

a ti te sale esta ventana en el error?


 

el error lo tira en esta zona:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

FMain.CargaColumnView.232: 13: Null object
FMain.CargaColumnView.233: _TreeView_Item._AddChild.136

Gracias por tu interés Victor, esa ventana se produce al no devolver nada la función y por tanto toma valor por defecto: False. El mensaje lo lanza el evento Select del Treeview. El error "13: Null object" se produce internamente en el ColumnView, no en el programa ejemplo. Es el problema que señalo, un error que se produce internamente en un control y que "hereda" la aplicación que lo usa.

v3ctor escribió:  

comente todas las lineas de finality y tira error: null key

 

arregla eso primero

Mis disculpas, hice todas las pruebas con una base de datos completa, para subir el programa tuve que eliminar muchos datos.
Para subsanar el error basta cambiar la linea 144: If hResult then
por:    If hResult.Available Then

Gracias por tu interés!

Hola Harpo.
El error sucede porque se levanta el evento treeview1_select() antes que el treeview tenga elementos, de ahi el null.
La solución es usar unas banderas, por ejemplo cargado = true una vez que cargaste el treeview y en el evento treeview_select pones un condicional
 IF cargado = true then

Saludos.

tincho escribió:  

Hola Harpo.
El error sucede porque se levanta el evento treeview1_select() antes que el treeview tenga elementos, de ahi el null.
La solución es usar unas banderas, por ejemplo cargado = true una vez que cargaste el treeview y en el evento treeview_select pones un condicional
 IF cargado = true then

Saludos.

Hola y gracias por la respuesta.
No veo lo que comentas. El evento TreeView1_Select() se dispara por primera vez al asignar: Key = "*" en el proceso de carga, y en el evento se controla que si TreeView.count = 1 no continue.
He probado a poner una bandera (bCargando = True) y no afecta

Por otro lado el error que existe al final del proceso de carga es: 13 - Null Object. en _TreeView_Item._AddChild.136
En el código fuente del control TreeView:



El error que aparece en mi programa ejemplo viene del "Try" del código fuente anterior en el control TreeView. Probé a depurar el ejemplo que viene el código fuente de gambas y efectivamente da error "Null Object", intenta incrementar el contador de nodos hijos (_GrandChildren) del nodo padre del que estamos insertando (_GetParentItem(Me)) en el TreeView (GetTree()). Y lo hace solo para el primer nodo ($aChildren.Count = 1) que es el nodo Root y no tiene padre. De ahí el nulo. Si se comenta la linea del "Try" el control TreeView funciona perfectamente.

Quizá en este ejemplo se vea más claro que error es del control TreeView.

Hay que comprobar si hay error (si no es null) antes de poder ver si es > 0.

Saludos.