Funzione instr

mercoledì 30 aprile 2008 - 18.02

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

ruby18 Profilo | Newbie

27 messaggi | Data Invio: mer 30 apr 2008 - 18:02

in un form ho una textbox(ins_Azienda) e una combobox (sel_Azienda), vorrei utilizzare il controllo for next per
farsi che nel momento in cui inserisco del testo nella textbox mi faccia un controllo nella combobox, e se i valori sono uguali mi mandi un msg.
ho scritto cosi ma non funziona, perchè?
Private Sub ins_Azienda_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ins_Azienda.Validated
Dim risultato As String
Dim ins_Azienda As String
Dim sel_Azienda As String
risultato = InStr(1, sel_Azienda, "RagioneSociale", 0)
If risultato = 0 Then
MsgBox("Dati esistenti")
End If
End Sub

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: gio 1 mag 2008 - 08:56

Il tuo problema è qui:

>risultato = InStr(1, sel_Azienda, "RagioneSociale", 0)
> If risultato = 0 Then
> MsgBox("Dati esistenti")
> End If

La funzione InStr infatti restituisce 0 solo quando non trova corrispondenza della stringa 2 nella stringa 1 per cui nel tuo caso, pur trovando la corrispondenza non verifica la condizione e non ti dà il messaggio.
Dovrai quindi modificare la condizione in questo modo:

if risultato > 0 then
  MsgBox....
End if

Ciao

Alessandro

http://blogs.dotnethell.it/alebadalin

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !