Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

elGuille.hosting: Ofertas de alojamiento
posiblemente los mejores precios
¡¡¡ Ahora con el doble de casi todo !!!

Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

15/Mar/2006
Te recomiendo que si no entras regularmente a los foros, marques la casilla de Notificar para recibir un correo cuando alguien responda a tu mensaje.

  Foro: .NET VB Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 51880 - problema con el selectedindexchanged
IDAsuntoFechaNick 
51880 problema con el selectedindexchanged19/02/10 21:29arcr   
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

 
(c) Guillermo 'guille' Som, 2005-2010  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.1433)
 
Usuarios activos: 98 - App. iniciada: 9/9/2010 1:11:11 AM GMT - La hora GMT del servidor es: 09/09/2010 07:03:10 GMT