DigiNG edición Scripting

Método InsertaAtributo

Inserta un atributo en una determinada posición de la lista de atributos.

Este método funciona únicamente en Objetos Entidad de lectura/escritura.

objeto.InsertaAtributo (posición, atributo)

Argumentos

posición

        posición (dentro de la lista de atributos) donde se insertará el atributo. Si la

        posición es mayor que el número de atributos que tiene el Objeto Entidad sobre

        el que se ejecuta el método, el comportamiento de este método se asemeja al del Método Entidad.AnadeAtributo.

atributo

        Objeto Atr que representa el atributo a insertar.

Ejemplo

' Este ejemplo solicita al usuario que seleccione una línea y

' le inserta un atributo al comienzo de la lista de atributo. El atributo creado pertenecerá a la

' tabla interna (DBDIGI) con los datos introducidos por el usuario.

Option Explicit

Const vbLineas = 1

Const vbDBDIGI = 1

Dim entidad

Dim copia

Dim atributo

digi.ImprimeMensaje "Seleccione elemento"

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

Set atributo = CreateObject("Digi3D.Atr")

atributo.Tabla = vbDBDIGI

atributo.Registro = InputBox("Registro")

atributo.Resto = InputBox("Resto")

Set copia = digi.ClonaEntidad(entidad)

copia.InsertaAtributo(0, atributo)

digi.AnadeEntidad(copia)

digi.BorraEntidad(entidad)

' Liberamos la memoria

Set copia = Nothing

Set atributo = Nothing

Set entidad = Nothing

Mirar también

Objeto Entidad | Método ImprimeMensaje | Método PideEntidad | Método BorraEntidad | Método AnadeEntidad

Fecha de última modificación: martes, 28 de mayo de 2002

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.