Questione : Definendo le variabili per visualizzare le parole basate sui valori codificati

Ho un campo di db [Tdir] che è messo con “N„, “la S„, “la E„, o “w„ per rappresentare il nord, il sud, l'est e l'ovest. Sto provando a farlo scrivere la parola completa basata sul codice in una forma. Come modifico il seguente codice per fare questo? class= " lineNumbers " >
1 del >

:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
funzione codeBody del >Private " del prettyprint " " del class= del id= " codeSnippet957529 del >
 di T allora = formatstr + “, borgata„ + T + ““+ Tdir
               
        Estremità prescelta
    Concluder se
    
Concludere la funzione
class= > " libero " di 

  
  class= del

Risposta : Definendo le variabili per visualizzare le parole basate sui valori codificati

Sembra abbastanza semplice…

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:
36:
37:
38:
39:
40:
41:
42:
43:

Formattract riservato di funzione (rst come dao. Recordset) come stringa
    Tratto fioco, indagine, BlockNum, SurveyName, superficie in acri, formatstr
    S fioca, R, Rdir, T, Tdir, contea, condizione, TractOnly
    Tratto = getval (rst, “tratto„)
    Indagine = getval (rst, “indagine„)
    BlockNum = getval (rst, “BlockNum„)
    SurveyName = getval (rst, “SurveyName„)
    Superficie in acri = getval (rst, “superficie in acri„)
    S = getval (rst, “S„)
    R = getval (rst, “R„)
    Rdir = getval (rst, “Rdir„)
    T = getval (rst, “T„)
    Selezionare il caso getval (rst, “Tdir„)
        Mettere “la N„: Tdir = “del nord„
        Caso “S„: Tdir = “del sud„
        Caso “E„: Tdir = “orientale„
        Caso “W„: Tdir = “ad ovest„
        Caso altrimenti: Tdir = ""
    Estremità prescelta
    Contea = getval (rst, “contea„)
    Condizione = getval (rst, “condizione„)
    TractOnly = getval (rst, “TractOnly„)
    
    formatstr = tratto
    Se TractOnly = falso allora
        Caso prescelto UCase (condizione)
            Caso “TX„, “il TEXAS„
                Se formatstr del "" > di indagine allora = formatstr + “della sezione„ + indagine
                Se BlockNum > formatstr del "" allora = formatstr + “, blocco„ + BlockNum
                Se SurveyName > formatstr del "" allora = formatstr + “,„ + SurveyName
                Se formatstr del "" > della contea allora = formatstr + “, in„ + contea + “contea, il Texas„
                Se formatstr del "" > di superficie in acri allora = formatstr + “contenendo approssimativamente„ + CStr (superficie in acri) + “acri, più o meno.„
            Caso “GIUSTO„, “OKLAHOMA„
                Se formatstr del "" > di S allora = formatstr + “della sezione„ + S
                Se formatstr del "" > di T allora = formatstr + “, borgata„ + T + ““+ Tdir
                Se formatstr del "" > della R allora = formatstr + “, gamma„ + R+ “,„ + Rdir
                Se formatstr del "" > della contea allora = formatstr + “del meridiano del Cimarron,„ + contea + “contea, Oklahoma„
                Se formatstr del "" > di superficie in acri allora = formatstr + “contenendo approssimativamente„ + CStr (superficie in acri) + “acri, più o meno.„
        Estremità prescelta
    Concluder se
    il formattract = sostituisce (formatstr, “,„, “, ") 'si libera di doppi virgole
    
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us