bueno el titulo lo dice todo tengo un datagridview que se llena con dias que se guardan en una bd pero este datagrid se llena directamente de un bindingsource y el binding source se llena de un datatable el problema es que necesito buscar un dato en el Binding soruce por lo que estoy usando un filter en el bindingsorce, el proble esta en que a la hora de que quiero presentar los datos que quiero despues de realizar el filtro el datagrid no me muestra absolutamente nada solamente la columna que agregue pero esto manualmente alguien tiene alguna idea de que es lo ke pasa? les dejo mi codigo haber si lo entienden
Código:
Private Sub frmDiasHabiles_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dt.Columns.Add("Dias")
BS.DataSource = dt
'Me.DGVSabadoDomingo.DataSource = BS
End Sub
'Private Function checar(ByVal fecha As Date) As Boolean
' Dim bsF As New BindingSource
' Dim dtF As New DataTable
' dtF = dt
' bsF = BS
' bsF.DataSource = dtF
' bsF.Filter = "Dias LIKE '" & fecha & "'"
' Me.DataGridView1.DataSource = bsF
' If Me.DataGridView1.Rows.Count = 0 Then
' Return True
' Else
' Return False
' End If
' End Function
Private Sub chkSabados_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSabados.CheckedChanged
For i = 1 To DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month) + 1, 0).Day
diaBuscar = DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month), i)
If diaBuscar.ToString("ddd") = "sáb" Then
' If checar(diaBuscar) = True Then
dt.Rows.Add()
dt.Rows(dt.Rows.Count - 1).Item(0) = diaBuscar.ToString
BS.DataSource = dt
Me.DGVSabadoDomingo.DataSource = BS.DataSource
'End If
End If
Next
cur = Me.MonthCalendar1.SelectionEnd.Month
'BS.DataSource = dt
Me.DGVSabadoDomingo.DataSource = BS
End Sub
Private Sub chkDomingos_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDomingos.CheckedChanged
For i = 1 To DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month) + 1, 0).Day
diaBuscar = DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month), i)
If diaBuscar.ToString("ddd") = "dom" Then
'If checar(diaBuscar) = True Then
dt.Rows.Add()
dt.Rows(dt.Rows.Count - 1).Item(0) = diaBuscar
BS.DataSource = dt
'End If
End If
Next
cur = Me.MonthCalendar1.SelectionEnd.Month
Me.DGVSabadoDomingo.DataSource = BS
End Sub
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
Me.DGVSabadoDomingo.Rows.Add()
Me.DGVSabadoDomingo(0, Me.DGVSabadoDomingo.Rows.Count - 1).Value = Me.MonthCalendar1.SelectionEnd
If cur <> Me.MonthCalendar1.SelectionEnd.Month Then
Me.chkDomingos.Checked = False
Me.chkSabados.Checked = False
End If
End Sub
al momento que uso la funcion checar la cual deje comentada ya que no me sirve ahora el datagrid deja de mostrar datos ayudaAAAAAAAA