Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/02/2010, 15:22
arcr
 
Fecha de Ingreso: julio-2008
Mensajes: 52
Antigüedad: 15 años, 9 meses
Puntos: 0
problema con el selectedindexchanged

hola amigos del foro:

Me encuentro programando en visual basic .net, hago una busqueda en una base de datos por medio de apellidos y nombre de una persona para que me muestre los datos de ella. Lo hago por medio de un combobox y cuando se localiza a la persona se selecciona de la lista desplegable del combo. El error sucede cuando escribo un apellido que no exista dentro de la base y al dar enter me arroja el siguiente error:

InvalidArgument=El valor de '0' no es válido para 'index'.

no he podido controlar este error. Alguien me podria decir como corregirlo??

se lo agradecere bastante..

aqui muestro mi codigo para mejor entendimiento

con este codigo muestro en cajas de texto los datos que coincidan con el nombre seleccionado


Private Sub cbbApellidos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbApellidos.SelectedIndexChanged

Dim x As Integer = Me.cbbApellidos.Text.IndexOf(",")
CargarDatos("Select * from CLIENTES")

If x > -1 Then
Dim nombre, apellidos As String
apellidos = Me.cbbApellidos.Text.Substring(0, x).TrimEnd()
nombre = Me.cbbApellidos.Text.Substring(x + 1).TrimStart()

Filas = Tabla.Rows
Buscar_fila = Tabla.Select("Apellidos_cliente = '" & apellidos & "' AND Nombre_cliente = '" & nombre & "'")

If (Buscar_fila.GetUpperBound(0) = -1) Then
MessageBox.Show("El Cliente que busca no Existe vuelva a introducir sus Apellidos", "Buscar")
Exit Sub
End If

Dim i, j, posi As Integer

For i = 0 To Buscar_fila.GetUpperBound(0) 'Indica el tamaño del arreglo

For j = 0 To Filas.Count - 1
If (Filas(j).Equals(Buscar_fila(i))) Then
posi = j
Exit For
End If
Next

Next

BindingSource.Position = posi
Enlazar_Datos_Clientes()

End If
End Sub


gracias a todos hasta luego