Para realizar el filtro utilizo un Dataview llamado VISTA y trato de filtrar el grid con los valores cogidos de 2 combos. Al hacerlo con un combo solo me funciona perfectamente, pero cuando intento filtrar utilizando dos combos me da el siguiente error:

"REFERENCIA A OBJETO NO ESTABLECIDA COMO INSTANCIA DE UN OBJETO"

Este es el codigo del filtro:

VISTA.RowFilter = "ID_CAMPO1 = '" & ComboBox1.SelectedValue.ToString & "'And ID_CAMPO2 = '" & ComboBox2.SelectedValue.ToString & "'"

Me gustaria que evaluaseis este codigo a ver si me podeis ayudar a ver el fallo. Gracias.

Yo estoy verde en VB.NET pero me imagino que el problema se te presente porque uno de los combos no tiene seleccionado ningún elemento.

Yo evaluaría el que tanto ComboBox1 como ComboBox2 contengan un valor de entre sus respectivos elementos, y sólo si se cumple esta doble condición definiría el VISTA.RowFilter.

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Yo tampoco estoy muy metido en .NET, pero me parece que entre el valor que te devuelve el Combo1 y el concatenante AND de la sentencia no pones ningún espacio de separación, por lo que cadena de filtro quedará como:


ID_CAMPO1 = '[VALOR_DEL_COMBO1]'And ID_CAMPO2 = '[VALOR_DEL_COMBO2]'

y la forma correcta debería ser:

ID_CAMPO1 = '[VALOR_DEL_COMBO1]' And ID_CAMPO2 = '[VALOR_DEL_COMBO2]'

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Vereis, en el evento load del form1 se produce la llamada a 2 procedimientos los cuales cargan los combos con sus respectivos datos de la siguiente manera:

Private Sub cargar_combo()
Dim dscombo As New DataSet
Dim da As New OleDbDataAdapter("select * from Tabla", con)
da.Fill(dscombo)
With (ComboBox1)
.DataSource = dscombo
.DisplayMember = ("tabla.campo_descripcion")
.ValueMember = ("tabla.campo_codigo")
End With
ComboBox1.Text = ""
End sub
Lo mismo para el combobox2. Los 2 combos cuando se carga el formulario estan inicializados a "" (con lo que dudo que sea porque no tiene seleccionado ningun valor) y a medida que vamos seleccionando valores va filtrando la grilla, o por lo menos es lo que deberia hacer. Los combos los carga perfectamente, es a la hora de realizar el filtrado que me da ese error. He probado lo que me dijiste acalanto, pero todo igual.

El problema es que unos de los comboBoxs tiene el SelectedValue = Nothing, trata de hacerlo asi:

If Not( isnothing(ComboBox1.SelectedValue) OR isnothing(ComboBox2.SelectedValue.ToString)) Then
VISTA.RowFilter = "ID_CAMPO1 = '" & ComboBox1.SelectedValue.ToString & "'And ID_CAMPO2 = '" & ComboBox2.SelectedValue.ToString & "'"
End If

cualquier duda dejala en el foro

Veras, esque tambien cabe la posibilidad de que filtre solo por un combobox y no por los dos, depende de si uno tiene valor y el otro no

Mira soy nuevo en el foro, pero creo que lo que puedes hacer es crear una variable de tipo string que contenga la sentencia de busqueda, por ejemplo:

Dim filtro as String = ""

If Not( isnothing(ComboBox1.SelectedValue) then
filtro = "ID_CAMPO1 = '" & ComboBox1.SelectedValue.ToString & "'"
End if

If Not( isnothing(ComboBox2.SelectedValue) then
if filtro.length>0 then filtro += " AND "
filtro += "ID_CAMPO2 = '" & ComboBox2.SelectedValue.ToString & "'"
end if

VISTA.RowFilter = filtro

Espero te sirva de algo mi ayuda.