Frage : Variablen definieren, um die Wörter anzuzeigen basiert auf codierten Darstellungen

Ich habe ein DB-Feld [Tdir] das mit „N“, „S“, „E“ oder „w“ verschlüsselt wird, um Norden, Süden, Osten und Westen darzustellen. Ich versuche, es das ganze Wort ausschreiben zu lassen, das auf dem Code in einer Form basiert. Wie ändere ich den folgenden Code, um dies zu tun? 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private Funktion 
formatstr
    Schwaches Tdir, T
    Tdir = getval (rst, „Tdir“)
    T = getval (rst, „T“)

    formatstr = Fläche
    Wenn T > "" dann formatstr = formatstr + „, Gemeinde“ + T + „„+ Tdir
               
        Ende auserwählt
    Beenden wenn
    
Funktion beenden

Antwort : Variablen definieren, um die Wörter anzuzeigen basiert auf codierten Darstellungen

Scheint einfach genug…

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:

Privates Funktion formattract (rst als dao. Recordset) als Schnur
    Schwache Fläche, Übersicht, BlockNum, SurveyName, Flächeninhalt, formatstr
    Schwaches S, R, Rdir, T, Tdir, Grafschaft, Zustand, TractOnly
    Fläche = getval (rst, „Fläche“)
    Übersicht = getval (rst, „Übersicht“)
    BlockNum = getval (rst, „BlockNum“)
    SurveyName = getval (rst, „SurveyName“)
    Flächeninhalt = getval (rst, „Flächeninhalt“)
    S = getval (rst, „S“)
    R = getval (rst, „R“)
    Rdir = getval (rst, „Rdir“)
    T = getval (rst, „T“)
    Den getval vorwählen Fall (rst, „Tdir“)
        „N“ umkleiden: Tdir = „Nord“
        Fall „S“: Tdir = „Süd“
        Fall „E“: Tdir = „Ost“
        Fall „W“: Tdir = „West“
        Fall sonst: Tdir = ""
    Ende auserwählt
    Grafschaft = getval (rst, „Grafschaft“)
    Zustand = getval (rst, „Zustand“)
    TractOnly = getval (rst, „TractOnly“)
    
    formatstr = Fläche
    Wenn TractOnly = falsch dann
        Fall UCase (Zustand) vorwählen
            „TX“ umkleiden, „TEXAS“
                Wenn Übersicht > "" dann formatstr = formatstr + „des Abschnitts“ + Übersicht
                Wenn BlockNum > "" dann formatstr = formatstr + „, Block“ + BlockNum
                Wenn SurveyName > "" dann formatstr = formatstr + „,“ + SurveyName
                Wenn Grafschaft > "" dann formatstr = formatstr + „, in“ + Grafschaft + „Grafschaft, Texas“
                Wenn Flächeninhalt > "" dann formatstr = formatstr + „ungefähr enthalten“ + CStr (Flächeninhalt) + „Morgen, mehr oder weniger.“
            Fall „OKAY“, „OKLAHOMA“
                Wenn S > "" dann formatstr = formatstr + „des Abschnitts“ + S
                Wenn T > "" dann formatstr = formatstr + „, Gemeinde“ + T + „„+ Tdir
                Wenn R > "" dann formatstr = formatstr + „, Strecke“ + R+ „,“ + Rdir
                Wenn Grafschaft > "" dann formatstr = formatstr + „des Cimarron-Meridians,“ + Grafschaft + „Grafschaft, Oklahoma“
                Wenn Flächeninhalt > "" dann formatstr = formatstr + „ungefähr enthalten“ + CStr (Flächeninhalt) + „Morgen, mehr oder weniger.“
        Ende auserwählt
    Beenden wenn
    formattract = ersetzen (formatstr, „,“, „, ") 'loswerden doppelte Kommas
    
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us