none
Filtrar Dataset com Select ou Dataview RRS feed

  • Pergunta

  • Olá pesoal, Estou precisano de ajuda para filtrar esse DataSet

    
            strSQL = " SELECT R_CUSTO_FINAL.CONS_ESPEC_REAL,A_PRODUTOS.CUSTO_TRANSF_ORÇA,A_PRODUTOS.CUSTO_PERDA_ORÇA,A_PRODUTOS.CUSTO_PERDA,R_CUSTO_FINAL.ORÇAMENTO_MAT,temp_PRODUÇÃO_CC.PREVISAO_MES,temp_PRODUÇÃO_CC.SUCATA_MES,temp_PRODUÇÃO_CC.SUCATA_PER,temp_PRODUÇÃO_CC.PRODUCAO_PER,R_CUSTO_FINAL.ORÇAMENTO_CC,R_CUSTO_FINAL.PERIODO, R_CUSTO_FINAL.CCUSTO, R_CUSTO_FINAL.PRODUTO_FINAL, " & _
                             " R_CUSTO_FINAL.ORDEM, A_CLASSE.CD_NIVEL1, A_CLASSE_N1.NM_NIVEL1, R_CUSTO_FINAL.CLASSE, " & _
                             " R_CUSTO_FINAL.DESCRIÇÃO, R_CUSTO_FINAL.CUSTO_UNIT_MP_F_REAL, " & _
                             " R_CUSTO_FINAL.CUSTO_UNIT_MP_V_REAL, R_CUSTO_FINAL.CONS_ESPEC_ORÇA, " & _
                             " R_CUSTO_FINAL.CUSTO_FIX_REAL, R_CUSTO_FINAL.CUSTO_VAR_REAL, " & _
                             " R_CUSTO_FINAL.CUSTO_TOTAL_REAL, R_CUSTO_FINAL.CUSTO_UNIT_MP_F_ORÇA, " & _
                             " R_CUSTO_FINAL.CUSTO_UNIT_MP_V_ORÇA, R_CUSTO_FINAL.CONS_ESPEC_ORÇA, " & _
                             " R_CUSTO_FINAL.CUSTO_FIX_ORÇA, R_CUSTO_FINAL.CUSTO_VAR_ORÇA, " & _
                             " R_CUSTO_FINAL.CUSTO_TOTAL_ORÇA, R_CUSTO_FINAL.CONSUMO_REAL, " & _
                             " R_CUSTO_FINAL.CONSUMO_ORÇA, A_CLASSE.GRUPO, A_CLASSE.TIPO_CUSTO, A_CLASSE.CD_CLASSE, " & _
                             " A_CENTRO_CUSTO.NM_CCUSTO, temp_PRODUÇÃO_CC.ORÇAMENTO_CC AS prodOrcaCC, " & _
                             " [PRODUCAO_PER]-[SUCATA_PER] AS prodRealCC, [PREVISAO_MES]-[SUCATA_MES] AS prodRitmCC, " & _
                             " temp_PRODUÇÃO_CC.SUCATA_PER AS nSucataCC, temp_PRODUÇÃO_CC.SUCATA_MES AS nSucRitmCC, " & _
                             " R_CUSTO_FINAL.ORÇAMENTO_MAT AS prodOrcaPF, temp_PRODUCAO_CC_MATERIAL.PRODUCAO_MAT, " & _
                             " temp_PRODUCAO_CC_MATERIAL.SUCATA_MAT, temp_PRODUCAO_CC_MATERIAL.PREVISAO_MAT, " & _
                             " temp_PRODUCAO_CC_MATERIAL.SUCATA_MAT_MES, A_PRODUTOS.CUSTO_PERDA, " & _
                             " A_PRODUTOS.CUSTO_PERDA_ORÇA, A_PRODUTOS.CUSTO_TRANSF, A_PRODUTOS.CUSTO_TRANSF_ORÇA" & _
                             " FROM A_CLASSE_N1 RIGHT JOIN (((((R_CUSTO_FINAL LEFT JOIN A_CLASSE ON " & _
                             " R_CUSTO_FINAL.CLASSE = A_CLASSE.CD_CLASSE) LEFT JOIN A_CENTRO_CUSTO ON " & _
                             " R_CUSTO_FINAL.CCUSTO = A_CENTRO_CUSTO.CD_CCUSTO) LEFT JOIN temp_PRODUÇÃO_CC ON " & _
                             " R_CUSTO_FINAL.CCUSTO = temp_PRODUÇÃO_CC.CD_CCUSTO) LEFT JOIN temp_PRODUCAO_CC_MATERIAL  " & _
                             " ON (R_CUSTO_FINAL.CCUSTO = temp_PRODUCAO_CC_MATERIAL.CD_CCUSTO) AND " & _
                             " (R_CUSTO_FINAL.PRODUTO_FINAL = temp_PRODUCAO_CC_MATERIAL.MATERIAL)) LEFT JOIN " & _
                             " A_PRODUTOS ON R_CUSTO_FINAL.PRODUTO_FINAL = A_PRODUTOS.CD_PRODUTO) ON " & _
                             " A_CLASSE_N1.CD_NIVEL1 = A_CLASSE.CD_NIVEL1 ORDER BY R_CUSTO_FINAL.PRODUTO_FINAL, R_CUSTO_FINAL.ORDEM, A_CLASSE.CD_NIVEL1, " & _
                             " A_CLASSE.CD_CLASSE;"
    
            Rcusto = Banco.RetornarDataSet(strSQL)
    
    

    Esse DataSet é aberto antes de um Loop.

    Dentro do Loop vou ter esse filtro

     

    Rcusto.Tables(0).DefaultView.RowFilter = "CCUSTO = '" & cCusto & "'"

    Só que estou buscando os dados do DataSet que deveriam vir filtrados, estão vindo sem filtro,vejam como estou buscando os dados

     

    cPerio = Rcusto.Tables(0).Rows(0).Item("periodo")

    Já pensei em usar o método SELECT e o Dataview, mas não deu certo

     

    O que quero, é buscar todos os registros na base de dados e a cada passada do loop, ele filtrar os dados

    para não ter que ficar abrindo o dataset toda vez, usando o where todas as vezes.

     

     

     


    • Editado Sames Davis domingo, 30 de outubro de 2011 20:35
    • Movido Eder CostaModerator terça-feira, 8 de novembro de 2011 12:54 De: Vb.net & Visual Basic (De:VB.NET e Visual Basic)
    sábado, 29 de outubro de 2011 23:01

Respostas

Todas as Respostas