Formular-Designer: Definieren eines Formelsteuerelements

Sie können Formulare oder Funktionen entsprechend den VB .NET-Regeln definieren. Weitere Informationen erhalten Sie unter http://msdn.microsoft.com/vbasic.

Verwenden Sie das Formelsteuerelement, um Werte zu addieren, zu subtrahieren, zu multiplizieren oder zu dividieren.

Beispielformeln:

Anzeigen der FID

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

Anzeigen des Ergebnisses einer beliebigen Auswahl

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

Anzeigen, ob die Geometrie verfügbar ist, und Festlegen der Farbe des Felds

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

Anzeigen der Anzahl der verfügbaren Microsoft-Dokumente (DocumentManager) und Festlegen der Feldfarbe

Die temp-Variable c wird verwendet, um einen doppelten Aufruf der Funktion zu verhindern:

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

Anmerkung: Dieses Beispiel zeigt die Konzepte. Die Verwendung des Steuerelements Dokumentverwaltung ist für diese Aufgabe jedoch einfacher. Siehe auch Formular-Designer: Dokumentverknüpfung - Eigenschaften.

Berechnung mit Attributwerten

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

Kombinationen mit anderen Attributnamen sind auch möglich. Beispiel:

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

Zusammenführen des Inhalts von zwei Textattributen Löschen oder Hinzufügen von Zeichen in Textfeldern (Datentyp VARCHAR2)

result = {TEXT1} & {TEXT2}

Anfügen eines Präfixes oder Suffixes

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

Erstellen eines Schachtnamens aus einer FID

result = "MH " & {FID}

Berechnen der übrigen Tage bis zur nächsten Wartung (mit dem Objektklassenattribut 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