[Resolvido] Filtrar dados de um bindingsource

[tecnico.clayton 0]

Boa noite senhores,

 

 

 

é minha primeira vez aqui, portanto desculpem qualquer coisa.

 

meu problema é o seguinte, preciso filtra dados de um datagridview baseado em uma textbox e 2 combobox,

 

o datagrid é populado por um bindingsource, e esse e populado por uma consulta linq.

 

até ai belza o datagrid mostra os dados, porem quando mando filtrar ele continua mostrando a mesma coisa, o filtro nao faz efeito.

 

estive olhando algumas coisa o modo de execucao e percebi que o bindingsource esta populado tipo LIST, os dados nao aparecem em ITEM quando faço um breakingpoint, pode ser esse o problema??

 

vou postar o codigo para voces analizarem.

 

Private db As New OpsislinqDataContext
 Dim bs As New BindingSource


 Private Sub frmconsulta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'faço a consulta linq   
Dim SS = From Sols In db.tbsses _
                   Select Sols.cdun, Sols.cdss, Sols.dtexecucao, Sols.nmendereco, Sols.tbequipe.nmequipe, Sols.tbcidade.nmcidade

'atribuo o resultado da pesquisa ao bindingsource    
   Me.bs.DataSource = SS

'atribuo o bindingsource ao datagrid
   Me.dgconsulta.DataSource = Me.bs

'carrego as combobox e deixo sem selecionar nada (dataset normal)
   TbcidadeBindingSource.DataSource = db.tbcidades
   TbequipeBindingSource1.DataSource = db.tbequipes
   TbequipeComboBox.SelectedItem = Nothing
   TbcidadeComboBox.SelectedItem = Nothing

'executo o filtro no endereco para filtrar todas as ruas teste
   Me.bs.Filter = "nmendereco like '%rua teste%'"

'atribuo o resultado ao datagrid novamente
   Me.dgconsulta.DataSource = bs

 

só que nao filtra nada, fica td como está, pode ser por causa do tipo list??? como resolvo isso?

 

 

 

 

 

obrigado desde já

[quintelab 91]

Em qual momento do código você tentou filtrar os dados? Não localizei.

 

Abraços...

[tecnico.clayton 0]

Em qual momento do código você tentou filtrar os dados? Não localizei.

 

Abraços...

 

aqui

'executo o filtro no endereco para filtrar todas as ruas teste

Me.bs.Filter = "nmendereco like '%rua teste%'"

 

nesse trecho tento filtrar direto todos registro q tenho rua teste no endereco!!

ta errado?

[quintelab 91]

Eu costumo refazer minha query passando na clausula where, faz esse teste.

 

Abraços...

[tecnico.clayton 0]

obrigado a quem tentou ajudar mas acabei resolvendo de outra forma, filtrando direto na consulta com likes em todos os campos, segue exemplo:

 

  If txtue.Text = Nothing Then
           ue = "*"
       Else
           ue = txtue.Text
       End If
       If txtnumeross.Text = Nothing Then
           numss = "*"
       Else
           numss = txtnumeross.Text
       End If
       If txtrua.Text = Nothing Then
           endereco = "*"
       Else
           endereco = "*" & txtrua.Text + "*"

       End If


           Dim SS = From Sols In db.tbsses.AsEnumerable() _
                                       Where Sols.nmendereco Like endereco And Sols.cdun Like ue And Sols.cdss Like numss _
                                      Select Sols.cdun, Sols.cdss, Sols.dtexecucao, Sols.nmendereco, Sols.tbequipe.nmequipe, Sols.tbcidade.nmcidade
       'Dim a As New DataSet
       'a.Tables

       Me.dt.DataSource = SS

       Me.dgconsulta.DataSource = Me.dt


       Me.dgconsulta.DataSource = dt

 

t+