DigiNG edición Scripting

Método AnadeAtributo

Añade un atributo (al final de la lista de atributos) a un Objeto Entidad.

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

objeto.AnadeAtributo (atributo)

Argumentos

atributo

        Objeto Atr que representa el atributo a añadir.

Ejemplo

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

' le añade un atributo en 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.AnadeAtributo(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.