Datas No Relatorio

[Gabriel Cabral]

Pessoal,

Tenho um relatorio entre datas gerado atraves de uma data inicial e uma data final indicadas em dois DTPicker.....

Como eu faço para essas datas aparecerem no relatorio???

Obrigado

[Macêdo]

exemplo:

neste eu ponho para aparecer numa label que está na seção 4 do Datareport o caption de um frame + as datas que aparecem em dois textbox's

datareport1.Sections("Section4").Controls("Lbl1").Caption = Frame1.Caption & " de: " & TextDATAINICIAL & " a " & TextDATAFINAL

ou seja:

nome_do_relatorio.sections("seção_do_relatorio_onde_vai_aparecer_as_datas").controls("name_do_label_onde_vai_colocar_as_datas").caption = name_do_datapicker

[Gabriel Cabral]

exemplo:

neste eu ponho para aparecer numa label que está na seção 4 do Datareport o caption de um frame + as datas que aparecem em dois textbox's

datareport1.Sections("Section4").Controls("Lbl1").Caption = Frame1.Caption & " de: " & TextDATAINICIAL & " a " & TextDATAFINAL

ou seja:

nome_do_relatorio.sections("seção_do_relatorio_onde_vai_aparecer_as_datas").controls("name_do_label_onde_vai_colocar_as_datas").caption = name_do_datapicker

Boa noite Macedo..

segui este seu exemplo mas algo está dando errado numa parte....

logo após eu digitar Controls("lblData").

quando eu digito o ponto, não aparece a janela de propriedades, como se não existisse a lblData

o que pode estar errado??

Editado Outubro 9, 2007 por Gabriel Cabral

[Macêdo]

Nada errado não Gabriel, é assim mesmo! pode continuar...("lbldata").caption = textdata.text

[Gabriel Cabral]

Nada errado não Gabriel, é assim mesmo! pode continuar...("lbldata").caption = textdata.text

Mas não ta aparecendo nada....

fiz assim

Private Sub DataReport_Activate()
rptAtendimentos.Sections("PageHeader").Controls("lblData").Caption = "Período de Referência: " & DTPicker1.Value & " a " & DTPicker2.Value & ""
End Sub

mas a label fica vazia

[Macêdo]

Opa! tem erro aí camarada:

Private Sub DataReport_Activate()

rptAtendimentos.Sections("PageHeader").Controls("lblData").Caption = "Período de Referência: " & DTPicker1.Value & " a " & DTPicker2.Value & ""

End Sub

o erro: ("!pageheader") troca por ("section2")

assim

Private Sub DataReport_Activate()

rptAtendimentos.Sections("section2").Controls("lblData").Caption = "Período de Referência: " & DTPicker1.Value & " a " & DTPicker2.Value & ""

End Sub

[Gabriel Cabral]

Opa! tem erro aí camarada:

Private Sub DataReport_Activate()

rptAtendimentos.Sections("PageHeader").Controls("lblData").Caption = "Período de Referência: " & DTPicker1.Value & " a " & DTPicker2.Value & ""

End Sub

o erro: ("!pageheader") troca por ("section2")

assim

Private Sub DataReport_Activate()

rptAtendimentos.Sections("section2").Controls("lblData").Caption = "Período de Referência: " & DTPicker1.Value & " a " & DTPicker2.Value & ""

End Sub

Coloquei ("PageHeader") porque o nome da seção, que está entre parêmteses é PageHeader

Mas não dá certo

troquei por Section2.......mesmo assim não deu certo

nada aparece na label

[Gabriel Cabral]

Encontrei o erro, Macedo...

o código estava corretíssimo..

o problema era o lugar onde eu estava colocando-o

eu estava colocando no evento Activate() do relatorio

o certo é colocar no botão que abre o relatorio

Obrigado...ateh +