Objetos - Obtener una colección de objetos existentes

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:28 P. M. por David Miralpeix

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;
        }
    }
}