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!