Progettazione modulo: definizione di un controllo di formula

È possibile definire formule o funzioni in base alle regole VB .NET. Per ulteriori informazioni, vedere http://msdn.microsoft.com/vbasic.

Utilizzare il controllo Formula per aggiungere, sottrarre, moltiplicare o dividere valori.

Di seguito vengono forniti alcuni esempi di formule:

Visualizzazione dell'IDE

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

Visualizzazione del risultato di qualsiasi selezione

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

Visualizzazione della disponibilità della geometria e impostazione del colore della casella

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

Visualizzazione del numero di documenti Microsoft (Gestione documenti) disponibili e impostazione del colore della casella

Per evitare di chiamare la funzione due volte, viene utilizzata la variabile temporanea c:

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: L'esempio mostra i concetti. Tuttavia, per eseguire l'operazione risulta molto più semplice utilizzare il controllo Gestione documenti. Vedere anche Progettazione modulo: Collegamento documenti - Proprietà.

Calcolo con i valori attributo

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

Sono inoltre possibili combinazioni con altri nomi di attributo, ad esempio:

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

Assemblaggio dei contenuti di due attributi di testo Eliminazione o aggiunta dei caratteri dei campi di testo (tipo di dati varchar2)

result = {TEXT1} & {TEXT2}

Aggiunta di un prefisso e un suffisso

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

Generazione del nome di un pozzetto da un IDE

result = "MH " & {FID}

Calcolo dei giorni rimanenti fino alla manutenzione successiva (utilizzando l'attributo classe di entità geografiche 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