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


Código VB6:

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


Código C#:

IItemColeccion itemColeccion = gCn.Obj.DameColeccion("coleccion", "Where ....");


Si necesitamos la colección sin objetos, por ejemplo para inicializar un grid, o crear objetos nuevos, tenemos la siguiente instrucción.


Código VB6:

gcn.obj.DameColNothing ("NombreColeccion")
gcn.obj.DameColNothing ("Clientes").add.show


Código C#:

gCn.Obj.DameColNothing("NombreColeccion");
gCn.Obj.DameColNothing("Clientes").Add().Show();


Ejemplo:


Código VB6:

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


Código C#:

using AhoraOCX;
using AhoraSistema;

namespace AhoraScriptsVacia
{
    public class Script_0 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            IColecciones lCol = gCn.Obj.DameColeccion("Clientes","Where 1=1");
            if (lCol == null) 
            {
                AhoraCore.VBA.Interaction.MsgBox("colección no existente");
                return;
            }
            lCol .Show();
            return;
        }
    }
}