Inquiridor
Imprimir relatorio.. usanto intervalo de data

Pergunta
-
Boa tarde, será que alguem poderia me ajudar, estou tentando imprimir o relatorio usando o intervalo de data mas nao esta dando certo..
estou usando o seguinte comando no botao..
Dim vicentino As New frmRelatorioVicentino()
vicentino.crvVicentino.ReportSource = New crpVicentino
If cmbConferencia.Text <> "" Then
vicentino.crvVicentino.SelectionFormula = "{Vicentino.Cod_Conf}=" & listConferencia.Text
End If
If IsDate(mskDtInicial.Text) And IsDate(mskDtFinal.Text) Then
If frmRelatorioVicentino.crvVicentino.SelectionFormula <> "" Then
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & " and "
End If
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} >= date (" & Format(mskDtInicial.Text, "yyyy, MM, dd") & ")"
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} <= date (" & Format(mskDtFinal.Text, "yyyy, MM, dd") & ")"
End If
vicentino.Show()
Hide()
Todas as Respostas
-
Bom dia,
Estou tentanto gerar um relatorio por intervalo de data.. mas nao estou conseguindo.. o que estou fazendo errado?? e como eu faco para imprimir um relatorio que usuario digite um intervalo de idade como por exemplo de 15 a 18 anos e saia as pessoas selecionadas no relatorio??
Dim vicentino As New frmRelatorioVicentino()
vicentino.crvVicentino.ReportSource = New crpVicentino
If cmbConferencia.Text <> "" Then
vicentino.crvVicentino.SelectionFormula = "{Vicentino.Cod_Conf}=" & listConferencia.Text
End If
If IsDate(mskDtInicial.Text) And IsDate(mskDtFinal.Text) Then
If frmRelatorioVicentino.crvVicentino.SelectionFormula <> "" Then
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & " and "
End If
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino >= cdate (" & (mskDtInicial.Text, "yyyy, MM, dd") & ")"
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino <= cdate (" & Format(mskDtFinal.Text, "yyyy, MM, dd") & ")"
End If
vicentino.Show()
Hide()- Mesclado AndreAlvesLimaModerator sexta-feira, 26 de março de 2010 17:01 post duplicado
-
corrigindo o codigo e este:
Dim vicentino As New frmRelatorioVicentino()
vicentino.crvVicentino.ReportSource = New crpVicentino
If cmbConferencia.Text <> "" Then
vicentino.crvVicentino.SelectionFormula = "{Vicentino.Cod_Conf}=" & listConferencia.Text
End If
If IsDate(mskDtInicial.Text) And IsDate(mskDtFinal.Text) Then
If frmRelatorioVicentino.crvVicentino.SelectionFormula <> "" Then
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & " and "
End If
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} >= cdate (" & Format(mskDtInicial.Text, "yyyy, MM, dd") & ")"
frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} <= cdate (" & Format(mskDtFinal.Text, "yyyy, MM, dd") & ")"
End If
vicentino.Show()
Hide() -
Wander poste sua dúvida aqui:
http://social.msdn.microsoft.com/Forums/pt-BR/vsreportingpt/threads
- Marcado como Resposta Fernanda SimõesModerator sexta-feira, 26 de março de 2010 12:52
-
-
Olá Wander,
Olha cara, acredito que a melhor maneira de se fazer isso e com uma maior facilidade (tanto para realizar, quanto para manutenções) seria a criação de uma View no seu Banco de Dados para retornar apenas as pessoas relacionadas a faixa passada.
Após a criação você apenas arrasta a View criada para seu DataSet. Quando você selecionar a faixa de idade, você chama a View que já irá te trazer as pessoas filtradas !
Acho que seria a forma mais fácil, porém é apenas uma sugestão! Se encontrar algo mais útil ou acessivel compartilhe conosco !
Abs,
Rafael Zaccanini----------------------------------------------------------Se a resposta te ajudou marque como útil