Manipular objetos

Obtiene la colección de objetos indicada.
Si la colección no contiene objetos, retorna un Nothing

set lColeccion = gCn.obj.DameColeccion("coleccion", "Where ....", , False)

Si necesitamos la colección sin objetos, por ejemplo para inicializar un grid, o crear objetos nuevos, tenemos la siguiente instrucción.
gcn.obj.DameColNothing ("NombreColeccion")
gcn.obj.DameColNothing ("Clientes").add.show


 Ver código ejemplo


Sub Main()
'muestra la colección de clientes
frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
Set lCol = gcn.obj.damecoleccion("Clientes","Where 1=1")
       If lcol Is Nothing Then 
          MsgBox "colección no existente"
       Exit Sub
       End If
lcol.show
End Sub

Sub NuevoCliente()
       'Mostrar el formulario para introducir un nuevo cliente, utilizando una colección vacía.
        frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
        gcn.obj.DameColNothing ("Clientes").add.show
End Sub


Autor: Daniel Ernesto Lutz Llano