Creador de formularios: definición de un control de fórmula

Puede definir fórmulas o funciones según las reglas VB .NET: Para obtener más información, consulte http://msdn.microsoft.com/vbasic.

Use el control de Fórmula para sumar, restar, multiplicar o dividir valores.

Algunas fórmulas de ejemplo:

Mostrar el FID

result="The FID is " & {FID}& "."

Mostrar el resultado de cualquier selección

result = Me.ConnectionTools.LngValue("select count(*) from <table> where column=" & LngValue("parent_fid"))

Mostrar si hay geometría disponible y definir el color del cuadro

if Me.GeometryAvailable then
result="Geometry available"
 Me.ForeColor=""
Me.BackColor=""
else
result="No Geometry available"
Me.ForeColor="white" 'These are HTML colors !
Me.BackColor="red"
end if

Mostrar cuántos documentos de Microsoft (DocumentManager) hay disponibles y definir el color del cuadro

La variable temporal c se usa para evitar llamar dos veces a la función:

dim c as integer
c = me.DocumentCount 
if c=0 then
 result="No Documents available"
Me.BackColor=""
else
 result=c & " Document(s) available"
Me.BackColor="red"
end if

Nota: Este ejemplo muestra los conceptos. Sin embargo, es mucho más fácil usar el control Gestor de documentos para realizar esta tarea. Véase también Creador de formularios: propiedades de Vinculador de documentos.

Calcular con valores de atributo

Result = {HEIGHT} + 20
Result = {HEIGHT} * 20
Result = {HEIGHT} / 20
Result = {HEIGHT} – 20

También son posibles combinaciones con otros nombres de atributo, por ejemplo:

Result = {HEIGHT_1} + {HEIGHT_2} *10
Result = {attribute name1} * {attribute name3} *10

Ensamblar el contenido de dos atributos de texto. Suprimir o añadir los caracteres de campos de texto (tipo de datos varchar2)

result = {TEXT1} & {TEXT2}

Añadir un prefijo y un sufijo

result = "Approx. " & {AREA} & "m2"

Generar un nombre de boca de alcantarilla a partir de un FID

result = "MH " & {FID}

Calcular los días restantes hasta el siguiente mantenimiento (usando un atributo de clase de elemento MAINTENANCE_NEXT_DATE)

Dim d As Date

Dim t As System.TimeSpan
d = Me.Value("maintenance_next_date")
t = d.Subtract(now)
result=t.Days