Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - case
Forum - Visual Basic 6 - case

Avatar
mash_mash (Normal User)
Expert


Messaggi: 230
Iscritto: 25/07/2007

Segnala al moderatore
Postato alle 9:05
Mercoledì, 12/11/2008
Ciao ragazzi ho un piccolo problema :
perche' la mia X non mi da nessun valore ?
Ditemi dove go sbagliato , a me sembra che la sintassi sia giusta.


Select Case varModelloFono
'estrapolo i caratteri per cercarli nel catalogo

Case Is <> "FSJ-" And varModelloFono <> "FKP-" And varModelloFono <> "FKC-"    
X = Left(varModelloFono, 2)

Case Is = "FSJ-"
X = "FS"

Case Is = "FKP-"
X = "FP"

Case Is = "FKC-"
X = "FC"

End Select
'
'Dim cerca As String
'cerca = X & y & z                  
'Unisce i nomi per ricavare il nome intero del 'catalogo
‘y = larghezza
‘z= profondita’

PM Quote
Avatar
BigL (Normal User)
Newbie


Messaggi: 14
Iscritto: 07/11/2008

Segnala al moderatore
Postato alle 11:05
Mercoledì, 12/11/2008
Prova a modificare quello tuo in questo:



Select Case varModelloFono
'estrapolo i caratteri per cercarli nel catalogo

Case (varModelloFono <> "FSJ-") And (varModelloFono <> "FKP-") And (varModelloFono <> "FKC-")
X = Left(varModelloFono, 2)

Case Is = "FSJ-"
X = "FS"

Case Is = "FKP-"
X = "FP"

Case Is = "FKC-"
X = "FC"

End Select


Ciao Michele

PM Quote