[VB6]: If...End If che non funziona...

[vr-claudio]

Ciao ragazzi,
scusate una sciocchezza, vi posto un codice che non riesco a capire la sua malfunzionalità:

Cosi' funziona:

If LBL_DATI > "?" Or LBL_DATI > "No" Then
TXT_TEST = LBL_DATI .Caption
Else
TXT_TEST.Text = ""
End If

Ma se io dovessi aggiungere una modifica non funziona:

If LBL_DATI > "?" Or LBL_DATI > "No" And CK5.Value = 1 Then
TXT_TEST = LBL_DATI .Caption
Else
TXT_TEST.Text = ""
End If

Sicuramente mi sto' perdendo in una cavolata ma non riesco a capire
Grazie vr-claudio

[oregon]

Che intendi con

> "?"

e

> "No"

[vr-claudio]

Lo riformulo meglio:

If LBL_DATI.Caption > "?" Or LBL_DATI.Caption > "No" And CK5.Value = 1 Then
TXT_TEST = LBL_DATI .Caption
Else
TXT_TEST.Text = ""
End If

[Max Mercury]

Potresti mettere delle parentesi per raggruppare l'or intanto.
E poi è molto rischiso utilizzare l'operatore > su una stringa, devi essere sicuro al 100%
di quello che confronterai, ad esempio "a" ed "A" hanno valori ben diversi.
Dovresti mettere <> "?" e <> "No" per essere sicuro.

CK5.Value sarebbe una checkBox ?? se non ti entra nel then si vede che o non
è flaggata la checkbox oppure la tua caption ha un valore < di "?" e < di "No"

Ti consiglio di usare la costante vbChecked anzi che 1 per fare i confronti
aumenta la leggibilità del codice

[oregon]

Ancora non hai risposto alla mia domanda ...

Che intendi con > "No" ?

[vr-claudio]

(Per Oregon)
Ma come non ti ho risposto...

Lo riformulo meglio:

If LBL_DATI.Caption > "?" Or LBL_DATI.Caption > "No" And CK5.Value = 1 Then
TXT_TEST = LBL_DATI .Caption
Else
TXT_TEST.Text = ""
End If



Grazie Max Mercury
ho guardato di sfuggita la tua gentile risposta, ti do' conferma domani

Grazie a tutti
vr-claudio

[oregon]

Continui a non rispondermi ... la domanda è

cosa intendi con > "No" ?

Non mi rispondere con del codice, ma con che cosa intendi con quel confronto ...

[vr-claudio]

Ciao oregon,
innanzitutto cerchiamo di moderare la voce e gli atteggiamenti,

Continui a non rispondermi ... la domanda è

Non mi rispondere con del codice, ma con che cosa intendi con quel confronto ...

...oppure

Ancora non hai risposto alla mia domanda ...

come già accennato tempo
fa non siamo a scuola e io non ho professori ma al limite persone da cui io possa apprendere
dalla loro esperienza sempre con rispetto!!!

Comunque il "No" o il "?" sono delle espressioni che mi danno nelle caption di questa label
pescandoli da una tabella di un db.mdb, mentre > è un'espressione o "confronto" come dici tu, per far capire al codice che se non sono presenti questi caratteri puo' fare determinate
cose altrimenti non deve fare nulla

Ciao

[oregon]

Originariamente inviato da vr-claudio
Ciao oregon,
innanzitutto cerchiamo di moderare la voce e gli atteggiamenti,

Voce ed atteggiamenti non si "intuiscono" tramite una tastiera.

Io scrivo sempre cosi', quando vado di fretta e quando devo ripetere piu' volte la stessa domanda.

Ma se ritieni di poter interpretare il "tono" delle mie risposte, non c'è poblema.

[Max Mercury]

Ma intendi non sono presenti all'interno di una stringa oppure da soli?
cioè potresti avere un valore tipo "No ordini" oppure "? Ordini" ?
se è così con l'operatore > ci fai ben poco mi sa, devi usare il metodo InStr
se invece sono valori che stanno nella caption da soli allora puoi usare <> al posto di >