Concepteur de formulaires : définition d'un contrôle de formule

Vous pouvez définir des formules et des fonctions selon les règles VB .NET. Pour plus d'informations, consultez également le site http://msdn.microsoft.com/vbasic.

Utilisez le contrôle de type formule pour ajouter, soustraire, multiplier ou diviser des valeurs.

Voici des exemples de formules :

Affichage du FID

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

Affichage du résultat de toute sélection

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

Affichage de la disponibilité d'une géométrie et définition de la couleur de la zone

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

Affichage du nombre de documents Microsoft (Gestionnaire de documents) disponibles et définition de la couleur de la zone

Notez que la variable temp c permet d'éviter d'appeler deux fois la fonction :

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

Remarque : Cet exemple affiche les concepts. Toutefois, il est beaucoup plus facile d'utiliser le gestionnaire de documents pour cette tâche. Voir aussi Concepteur de formulaires : outil de liaison des documents - propriétés.

Calcul des valeurs d'attribut

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

Il est également possible d'effectuer des combinaisons avec d'autres noms d'attributs, par exemple :

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

Assemblage du contenu de deux attributs de texte. Supprimez ou ajoutez les caractères des champs de texte (type de données varchar2)

result = {TEXT1} & {TEXT2}

Ajout d'un préfixe et d'un suffixe

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

Génération d'un nom de bouche d'égout à partir d'un FID

result = "MH " & {FID}

Calcul du nombre de jours restants jusqu'à la prochaine opération de maintenance (à l'aide d'un attribut de classes d'objets 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