| ID | Asunto | Fecha | Nick | |
| 51880 | problema con el selectedindexchanged | 19/02/10 21:29 | arcr | |  |
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 |