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



¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo