none
Filtrar Vários Campos RRS feed

  • Pergunta

  • Srs Boa Tarde
    Sou iniciante em VB.NET e estou elaborando um sistema de contas a pagar e receber. O cadastro eu já consegui fazer. Tenho um formulário de relatório dessas contas onde eu tenho um combo (Pagar, Pago Receber, Recebida) outro combo (Fornecedores) uma TextBox ( Data Inicial ) e outra TextBox (Data Final ) e uma DataGridView e estou precisando filtrar nessa DataGridView o seguinte, por EX:
    Todas as contas a Pagar de um Fornecedor ( x ) no período de 11/11/1111 até 22/22/2222, e o resultado será mostrado na DataGridView.
    Os dados estão gravados no Access 2007 e estou usando Visual Studio 2010.

    Eu só consegui filtrar as datas, segue abaixo o código e a tela do relatório.

     Private Sub btnFiltrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFiltrar.Click

    If btnFiltrar.Text = "Filtrar" Then       

                If Trim(CmbPosicaoConta.Text) = "" Then
                    If MsgBox("VOÇE DEVE ESCOLHER UMA POSIÇÃO DA CONTA", MsgBoxStyle.Information, "POSIÇÃO DA CONTA") Then ': Exit Sub
                        CmbPosicaoConta.Focus()
                        Exit Sub
                    End If
                End If

                da = New OleDbDataAdapter
                ds = New DataSet
                conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\cadastro.mdb;jet oledb:database password=adm")
                da = New OleDbDataAdapter("SELECT * FROM Contas WHERE posicaoconta LIKE '" & CmbPosicaoConta.Text & "%' ", conn)


                da = New OleDbDataAdapter("select * from Contas where vencimento >=#" & TextBox1.Text & "# and vencimento<=#" & TextBox2.Text & "#", conn)
                cb = New OleDbCommandBuilder(da)


                ObterDados()
                da.Fill(ds, "Cadastro")
                dgContas.DataSource = ds.Tables(0)
                btnFiltrar.Text = "Todos"
            Else
                btnFiltrar.Text = "Filtrar"
                ObterDados()
                Dispose()
                Dim f As New RelaContasCompleto
                f.Show()
            End If
        End Sub
    End Class

    terça-feira, 13 de janeiro de 2015 16:10