Ver Mensaje Individual
  #7 (permalink)  
Antiguo 30/03/2012, 13:48
Avatar de UNDR4
UNDR4
 
Fecha de Ingreso: marzo-2012
Ubicación: Death Valley
Mensajes: 46
Antigüedad: 12 años, 1 mes
Puntos: 2
Respuesta: Mostrar filtro mediante TextBox y Combobox[VB.net]

Cita:
Iniciado por Aquaventus Ver Mensaje
Hola UNDR4, el CBMarca.SelectedIndex = -1, colocalo al final despues de cargarlo por eso que no refleja. Saludos!..
seré idiota, tienes razón, muchas gracias por contestar

Solo una ultima cosa, al hacer esto me viene un problema con los filtros: Referencia a objeto no establecida como instancia de un objeto con CBMarca.SelectedValue.ToString en la linea 9

Así es como eh puesto los filtros de registros

Código vb:
Ver original
  1. Dim Query As String
  2.         If TBPClave.Text.Trim.Length = 0 And TBPNombre.Text.Trim.Length = 0 Then
  3.             Query = "Select clave,nombre,descripcion,precioc,preciou from productos where id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
  4.         ElseIf TBPClave.Text.Trim.Length = 0 And CBMarca.SelectedIndex.Equals(-1) Then
  5.             Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like '" & TBPClave.Text & "' order by nombre"
  6.         ElseIf TBPClave.Text.Trim.Length = 0 And CBMarca.SelectedIndex.Equals(-1) Then
  7.             Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like '" & TBPNombre.Text & "' order by nombre"
  8.         ElseIf TBPClave.Text.Trim.Length <> 0 And TBPNombre.Text.Trim.Length = 0 Then
  9.             Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like '" & TBPClave.Text & "' and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
  10.         ElseIf TBPClave.Text.Trim.Length = 0 And TBPNombre.Text.Trim.Length <> 0 Then
  11.             Query = "Select clave,nombre,descripcion,precioc,preciou from productos where nombre like '" & TBPNombre.Text & "' and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
  12.         Else
  13.             Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like'" & TBPClave.Text & "' and nombre like '" & TBPNombre.Text & "'and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
  14.         End If
  15.         'Crear Adaptador
  16.        oDataAdapter = New MySqlDataAdapter(Query, Conexion)

También eh intentado con (CBMarca.Text = "") supongo que estaré haciendo algo mal, pero necesito verificar que el combobox este vació para poder implementar mejor los filtros
__________________
†UNDR4†
Un programador es un mamífero nocturno de ojos rojos capaz de conversar con objetos inanimados.

Última edición por UNDR4; 30/03/2012 a las 14:08