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