CRITERIO DE SELECAO PARA O CRYSTAL
pessoal,
queria um critério de seleção para o crystal q fizesse o seguinte pra mim:
buscasse um registro respeitando uma determinada data, mas que o registro possa ter os valores x, y ou z, conforme eu selecinar nos chekbox. seria mais ou menos assim:
um registro que seja:
data=6/6/2007 and campo=x or campo=y or campo=z
ou assim, um critério mais amplo:
data=6/6/2007 and campo=x or campo=z
será que alguém pode me ajudar???
Obrigado a todos!
queria um critério de seleção para o crystal q fizesse o seguinte pra mim:
buscasse um registro respeitando uma determinada data, mas que o registro possa ter os valores x, y ou z, conforme eu selecinar nos chekbox. seria mais ou menos assim:
um registro que seja:
data=6/6/2007 and campo=x or campo=y or campo=z
ou assim, um critério mais amplo:
data=6/6/2007 and campo=x or campo=z
será que alguém pode me ajudar???
Obrigado a todos!
Tenta assim no VB e no where coloca os AND
Dim m_sql As String
CRControl.ReportFileName = REPORTPATH & "relatorio.rpt"
On Error GoTo ERRO
CRControl.LogOnServer "pdsodbc.dll", "BASE", "", "", ""
On Error GoTo 0
m_sql = "SELECT data,id_produto,nome where data <='" & Format(dtIni, "YYYY/MM/DD") & "'"
CRControl.ReportFileName = REPORTPATH & "report.rpt"
On Error GoTo ERRO
CRControl.LogOnServer "pdsodbc.dll", "BASE DE DADOS", "", "", ""
On Error GoTo 0
CRControl.ReportTitle = " Relatório"
CRControl.WindowTitle = " Relatório"
CRControl.SQLQuery = m_sql
CRControl.Destination = crptToWindow
CRControl.WindowState = crptMaximized
CRControl.PrintReport
Dim m_sql As String
CRControl.ReportFileName = REPORTPATH & "relatorio.rpt"
On Error GoTo ERRO
CRControl.LogOnServer "pdsodbc.dll", "BASE", "", "", ""
On Error GoTo 0
m_sql = "SELECT data,id_produto,nome where data <='" & Format(dtIni, "YYYY/MM/DD") & "'"
CRControl.ReportFileName = REPORTPATH & "report.rpt"
On Error GoTo ERRO
CRControl.LogOnServer "pdsodbc.dll", "BASE DE DADOS", "", "", ""
On Error GoTo 0
CRControl.ReportTitle = " Relatório"
CRControl.WindowTitle = " Relatório"
CRControl.SQLQuery = m_sql
CRControl.Destination = crptToWindow
CRControl.WindowState = crptMaximized
CRControl.PrintReport
parece interessante. to quase lá.
o sistema agr só não está respeitando a data escolhida. pq será?
ja mexi, fucei, mas até agr nada... rs
obrigado a vcs
o sistema agr só não está respeitando a data escolhida. pq será?
ja mexi, fucei, mas até agr nada... rs
obrigado a vcs
Crystal Report eh o bicho, né!!!
Pessoal, a amiga TatiSouto passou uma dica q quase deu certo. a única coisa q o sistema não está fazendo eh filtrando as datas. onde está o erro? será q alguém pode dizer?
Será que alguém entendeu a minha dúvida??? rs
Obrigado pessoal.
Pessoal, a amiga TatiSouto passou uma dica q quase deu certo. a única coisa q o sistema não está fazendo eh filtrando as datas. onde está o erro? será q alguém pode dizer?
Será que alguém entendeu a minha dúvida??? rs
Obrigado pessoal.
Poste como vc está fazendo o filtro...
No site oficial do Crytal Reports tem um .PDF (link abaixo) com um monte de links para projetos exemplo em VB6 com CR 8, 8.5 e 9. Muito bom, recomendo.
http://support.businessobjects.com/communityCS/TechnicalPapers/apps_rdc.pdf.asp
At,
http://support.businessobjects.com/communityCS/TechnicalPapers/apps_rdc.pdf.asp
At,
Tópico encerrado , respostas não são mais permitidas