solucionar if

[acse]

Hola a todos,


Tengo un problema con una aplicacion, el if y la funcuion de cadena funciona correctamente, sin embargo, al termino de la funcion se regresa a el if y es algo que no quiere, puesto que lo pongo para clientes que no tiene que pasar por la aplicacion completa.

Código PHP:

  If cCliente.ToString.Equals("11210233") Then 
 
            cadenas(cCliente) 
 
        ElseIf cCliente.ToString.Equals("11210441") Then 
            cadenas(cCliente) 
 
        ElseIf cCliente.ToString.Equals("11210409") Then 
            cadenas(cCliente) 
 
        End If  
   

Código PHP:

   Public Sub cadenas(ByVal cCliente As String) 
        Dim cnn As New SqlConnection 
        cnn.ConnectionString = Me.conn.ConnectionString 
        Dim query As String = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE cliente = '" & cCliente & "'" 
        Dim cmd As New SqlCommand(query, cnn) 
        cnn.Open() 
 
 
        Me.RichTextBox1.Text = "Cadenatienda en Ok" 
        MessageBox.Show("Ok cadena") 
 
        cmd.ExecuteNonQuery() 
        cnn.Close() 
        cnn.Dispose() 
    End Sub  
   

[Aquaventus]

Hola acse podrias hacer esto para que acabe y no repita dentro de tu if obligandolo a salir de un proceso :

Código vb:

If cCliente.ToString.Equals("11210233") Then 
 
            cadenas(cCliente) 
            Exit Sub
        ElseIf cCliente.ToString.Equals("11210441") Then 
            cadenas(cCliente) 
            Exit Sub
        ElseIf cCliente.ToString.Equals("11210409") Then 
            cadenas(cCliente) 
            Exit Sub
        End If
 

Saludos!