DigiNG edición Scripting

Método ModificaAtributo

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

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

objeto.ModificaAtributo (posición, atributo)

Argumentos

posición

        posición que indica qué atributo se modificará. Si la posición

        es mayor que el número de atributos se genera un error.

atributo

        Objeto Atr que representa el atributo.

Ejemplo

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

' modifica su primer atributo por uno nuevo generado con datos solicitados al 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 ""

If entidad.Atributos = 0 Then

    MsgBox "La entidad no tiene atributos"

Else

    Set atributo = CreateObject("Digi3D.Atr")

    atributo.Tabla = vbDBDIGI

    atributo.Registro = InputBox("Registro")

    atributo.Resto = InputBox("Resto")

    Set copia = digi.ClonaEntidad(entidad)

    copia.ModificaAtributo(0, atributo)

    digi.AnadeEntidad(copia)

    digi.BorraEntidad(entidad)

    ' Liberamos la memoria

    Set copia = Nothing

    Set atributo = Nothing

End If

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.