filtrar combox dentro de datagridview vb net

[leochavez]

quiero filtrar dos combox dentro de un datagrid pero lo queme pasaes ala hora defiltrar los datos del combo anterior se cambia la data de lo primero que seleccione
como hacer para que los registros que seleccionen y no cambien

ayuda porfavor



Private Sub dgvsalud_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvsalud.CellValueChanged
If Not (dgvsalud.CurrentRow Is Nothing) Then
Dim columna As String = dgvsalud.Columns(dgvsalud.CurrentCell.ColumnIndex) .Name
If columna = "dsc_tipo_seguro" Then
' MsgBox(dgvsalud.CurrentRow.Cells("dsc_tipo_seguro" ).Value)
dsc_eps.DataSource = lobjTipoSeguro.fcboseguros(dgvsalud.CurrentRow.Cel ls("dsc_tipo_seguro").Value)
dsc_eps.ValueMember = "cod_tipo_seguro"
dsc_eps.DisplayMember = "dsc_tipo_seguro"
dgvsalud.AutoGenerateColumns = False
End If
End If
End Sub

[Dradi7]

Seria mejor que uses el evento EditingControlShowing, guiate de aqui

http://stackoverflow.com/questions/6...showing-events

[leochavez]

amigo lo que deseo es que se pudiera filtrar de forma horizontal dentro de la grilla por ejmeplo

tengo 2 combobox
asi
de lo cual deberia filtrar al siguiente combo dentro del datagrid


combo1 combo2
hola 1
que tal 2
3
4
de esa manera me deveria filtrar y todo dentro de un datagridview en vb net porfavor un ejemplo

[Dradi7]

ahi ta el ejemplo leochavez con eso consigues lo que quieres revisalo bien

[leochavez]

como lo paso pero a vb net envame ps un ejemplo

[Dradi7]

Bueno no se porque aun les cuesta poder interpretar el código si la lógica es la misma ademas tanto VB y C# solo se diferencias por cosas pequeñas, ademas lo veo mal que uno que te esta ayudando trates de decirle esto

Iniciado por leochavez

como lo paso pero a vb net envame ps un ejemplo

trata de ser un poco mas amable de la gente que te esta ayudando, bueno acá te pongo como deberías hacerlo, esta en VB tal como tu lo quieres.

Código vb:

Private sub dgDatos_EditingControlShowing(object sender, DataGridViewEditingControlShowingEventArgs e) Handles dgDatos.EditingControlShowing
     
     If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then ' Validando si el control es de tipo combobox edit
        
        If e.ColumnIndex = 0 ' Valida si el index es igual al combo primario en donde vas a realizar el filtro
        Dim CellTextBox As DataGridViewComboBoxEditingControl = TryCast(e.Control, DataGridViewComboBoxEditingControl)
        RemoveHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
        AddHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
     
     End If
     
End Sub
 
Sub CellTextBox_SelectionChangeCommited(ByVal sender As Object, ByVal e As EventArgs)
    
    Dim c As ComboBox = TryCast(sender, ComboBox)
    Dim value as Object = c.SelectedValue
    Dim Combo as DataGridViewComboBox = dgDatos.Columns(dgDatos.CurrentCell.ColumnIndex)
    
    Combo.DataSource = lobjTipoSeguro.fcboseguros(value)
    Combo.ValueMember = "cod_tipo_seguro"
    Combo.DisplayMember = "dsc_tipo_seguro"
    
End Sub
 

[leochavez]

amigo me sale erro en el columnindex
y el
DataGridViewComboBox

Private Sub dgvsalud_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlSho wingEventArgs) Handles dgvsalud.EditingControlShowing
If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then ' Validando si el control es de tipo combobox edit

If e.ColumnIndex = 0 Then ' Valida si el index es igual al combo primario en donde vas a realizar el filtro
Dim CellTextBox As DataGridViewComboBoxEditingControl = TryCast(e.Control, DataGridViewComboBoxEditingControl)
RemoveHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
AddHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited

End If
End If
End Sub
Sub CellTextBox_SelectionChangeCommited(ByVal sender As Object, ByVal e As EventArgs)

Dim c As ComboBox = TryCast(sender, ComboBox)
Dim value As Object = c.SelectedValue
Dim Combo As DataGridViewComboBox = dgvsalud.Columns(dgvsalud.CurrentCell.ColumnIndex)

Combo.DataSource = lobjTipoSeguro.fcboseguros(value)
Combo.ValueMember = "cod_tipo_seguro"
Combo.DisplayMember = "dsc_tipo_seguro"

End Sub

[Dradi7]

Perdón yo me equivoque corrige esas lineas por estas

la de e.ColumnIndex por esta dgvsalud.CurrentCell.ColumnIndex

la de DataGridViewComboBox por ComboBox

[leochavez]

asi
pero me sale error en esta parte
no se puede convertir dice

Dim Combo As combobox= dgvsalud.Columns(dgvsalud.CurrentCell.ColumnIndex)

[Dradi7]

Perdón creo que es así
en vez de esto

Código vb:

Dim Combo As DataGridViewComboBox = dgvsalud.Columns(dgvsalud.CurrentCell.ColumnIndex)
 

pon esto

Código vb:

Dim Combo As DataGridViewComboBoxColumn = TryCast(dgvsalud.Columns(dgvsalud.CurrentCell.ColumnIndex),DataGridViewComboBoxColumn)
 

[leochavez]

amigo aparecen los datos pero se limpian cuando lo selecciono porque eso

[Dradi7]

Porque lo que este código hace es por ejemplo que si yo tengo una tabla DEPARTAMENTO y una tabla PROVINCIA si yo escogo un DEPARTAMENTO me mostrara en el otro combo las PROVINCIAS de ese departamento y eso sucederá cada vez que yo cambio el valor del DEPARTAMENTO por eso se limpia el dato seleccionado de PROVINCIA porque se acaba de cargar nuevamente los datos de la PROVINCIA del respectivo DEPARTAMENTO

[leochavez]

que si y como haria para que no se limpiara la tabla provincias que permanesca listada porque cierto que le mande un value y debe permanecer listado esos datos
ayuda porfa.

[leochavez]

pero yo solo he hecho clik en el combo de provincia y se limpio porque

[leochavez]

amigo y donde coloco la variable combo

[Dradi7]

revisando el codigo en esta parte tienes

Código vb:

Private sub dgDatos_EditingControlShowing(object sender, DataGridViewEditingControlShowingEventArgs e) Handles dgDatos.EditingControlShowing
* * *
* * *If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then ' Validando si el control es de tipo combobox edit
* * * * 
* * * * If e.ColumnIndex = 0 ' Valida si el index es igual al combo primario en donde vas a realizar el filtro
* * * * Dim CellTextBox As DataGridViewComboBoxEditingControl = TryCast(e.Control, DataGridViewComboBoxEditingControl)
* * * * RemoveHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
* * * * AddHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
* * *End If
* * *End If
* * *
End Sub
 

[leochavez]

haci lo hise mire

Private Sub dgvsalud_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlSho wingEventArgs) Handles dgvsalud.EditingControlShowing
If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then ' Validando si el control es de tipo combobox edit

If dgvsalud.CurrentCell.ColumnIndex = 0 Then ' Valida si el index es igual al combo primario en donde vas a realizar el filtro
Dim CellTextBox As DataGridViewComboBoxEditingControl = TryCast(e.Control, DataGridViewComboBoxEditingControl)
RemoveHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
AddHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
End If
End If

End Sub
Sub CellTextBox_SelectionChangeCommited(ByVal sender As Object, ByVal e As EventArgs)

Dim c As ComboBox = TryCast(sender, ComboBox)
Dim value As Object = c.SelectedValue
Dim Combo As DataGridViewComboBoxColumn = TryCast(dgvsalud.Columns(dgvsalud.CurrentCell.Colu mnIndex, DataGridViewComboBoxColumn)

dsc_eps.DataSource = lobjTipoSeguro.fcboseguros(value)
dsc_eps.ValueMember = "cod_tipo_seguro"
dsc_eps.DisplayMember = "dsc_tipo_seguro"

End Sub

[Dradi7]

Iniciado por leochavez

haci lo hise mire

Private Sub dgvsalud_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlSho wingEventArgs) Handles dgvsalud.EditingControlShowing
If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then ' Validando si el control es de tipo combobox edit

If dgvsalud.CurrentCell.ColumnIndex = 0 Then ' Valida si el index es igual al combo primario en donde vas a realizar el filtro
Dim CellTextBox As DataGridViewComboBoxEditingControl = TryCast(e.Control, DataGridViewComboBoxEditingControl)
RemoveHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
AddHandler CellTextBox.SelectionChangeCommitted, AddressOf CellTextBox_SelectionChangeCommited
End If
End If

End Sub
Sub CellTextBox_SelectionChangeCommited(ByVal sender As Object, ByVal e As EventArgs)

Dim c As ComboBox = TryCast(sender, ComboBox)
Dim value As Object = c.SelectedValue
Dim Combo As DataGridViewComboBoxColumn = TryCast(dgvsalud.Columns(dgvsalud.CurrentCell.Colu mnIndex, DataGridViewComboBoxColumn)

dsc_eps.DataSource = lobjTipoSeguro.fcboseguros(value)
dsc_eps.ValueMember = "cod_tipo_seguro"
dsc_eps.DisplayMember = "dsc_tipo_seguro"

End Sub

Esta parte de aca

If dgvsalud.CurrentCell.ColumnIndex = 0

es importante tienes que ponerlo el indice de la columna "departamento" sino todas las columnas de tipo combo van a cambiar segun el codigo que he puesto

[leochavez]

si lo puse es la que esta en primera posicio o sera porque el llenado del combo de departamento lo hago en el load

[leochavez]

SOLUCIONADO GRACIAS

Imports System.Data.SqlClient
Public Class Form1
Dim dv As DataView
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As New DataTable
Dim strConn As String
Dim da, daProducts As SqlDataAdapter
Dim conn As SqlConnection
strConn = "Data Source=172.0.27.8;Initial Catalog=Northwind;Integrated Security=True"
conn = New SqlConnection(strConn)
da = New SqlDataAdapter("Select * from Categories", conn)
daProducts = New SqlDataAdapter("Select * from Products", conn)
da.Fill(ds, "Categories")
daProducts.Fill(ds, "Products")
dt.Columns.Add("Category", GetType(Integer))
dt.Columns.Add("Product")
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = dt
Dim dgvCombo As New DataGridViewComboBoxColumn
With dgvCombo
.Width = 150
.DataSource = ds.Tables("Categories")
.DisplayMember = "CategoryName"
.DataPropertyName = "CategoryID"
.ValueMember = "CategoryID"
.HeaderText = "Category"
End With
dv = New DataView(ds.Tables("Products"))
DataGridView1.Columns.Add(dgvCombo)
Dim dgvFilter As New DataGridViewComboBoxColumn
With dgvFilter
.Width = 150
.DisplayMember = "ProductName"
.DataPropertyName = "ProductName"
.HeaderText = "Product"
End With
DataGridView1.Columns.Add(dgvFilter)
End Sub

Private Sub DataGridView1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventAr gs) Handles DataGridView1.CellBeginEdit
If e.ColumnIndex = 1 Then
Dim dgvCbo As DataGridViewComboBoxCell = TryCast(DataGridView1(e.ColumnIndex, e.RowIndex), DataGridViewComboBoxCell)
If dgvCbo IsNot Nothing Then
Dim str As String = DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value.ToString
dv = New DataView(ds.Tables("Products"))
dv.RowFilter = "CategoryID = " & str
dgvCbo.DataSource = dv
End If
End If
End Sub

Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
If e.ColumnIndex = 2 Then
Dim dgvCbo As DataGridViewComboBoxCell = TryCast(DataGridView1(e.ColumnIndex, e.RowIndex), DataGridViewComboBoxCell)
If dgvCbo IsNot Nothing Then
dv = New DataView(ds.Tables("Products"))
dgvCbo.DataSource = dv
End If
End If
End Sub

Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArg s) Handles DataGridView1.DataError
e.Cancel = True
End Sub

Private Sub DataGridView1_DefaultValuesNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) Handles DataGridView1.DefaultValuesNeeded
e.Row.Cells(0).Value = 1
End Sub
End Class