CRYSTAL REPORTS
Ao salvar um cadastro, preciso imprimir um relatório dos dados, e para isso
preciso usar o Crystal Reports, como faço para exibir no relatorio os dados cadastrados?
Desde já agradeço..
preciso usar o Crystal Reports, como faço para exibir no relatorio os dados cadastrados?
Desde já agradeço..
Bom dia, Qual banco de dados esta utilizando?
Tem esse tópico aqui que também pode te ajudar.
http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=369775&varWorld=
http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=369775&varWorld=
estou usando o sql server.
na hora em que o usuário clicar em salvar,
deve aparecer o relatorio
vou ver o tópico sim , obrigada
na hora em que o usuário clicar em salvar,
deve aparecer o relatorio
vou ver o tópico sim , obrigada
estou fazendo da seguinte maneira: dr([Ô]Descricao[Ô]) = txtDescricao.Text
e o relatório está aparecendo em branco
alguem pode me ajudar?
e o relatório está aparecendo em branco
alguem pode me ajudar?
Faz um dataset e insira um datatable na mesma.
Ai é so popular o dataset, e depois exibir o relatorio.
Da uma pesquisa ai no forum, que tem bastante informação sobre isto.
Até mais.
Ai é so popular o dataset, e depois exibir o relatorio.
Da uma pesquisa ai no forum, que tem bastante informação sobre isto.
Até mais.
Obrigada, eu consegui
agora estou tentando exibir todas as linhas do datagridview no crystal reports
agora estou tentando exibir todas as linhas do datagridview no crystal reports
For i = 0 To dgvMaterial.Rows.Count - 1
dr([Ô]CodMaterial[Ô]) = dgvMaterial.Rows(i).Cells(0).Value
dr([Ô]Descricao[Ô]) = dgvMaterial.Rows(i).Cells(1).Value
dr([Ô]Qtd[Ô]) = dgvMaterial.Rows(i).Cells(2).Value
dr([Ô]PrecoUnitario[Ô]) = dgvMaterial.Rows(i).Cells(3).Value
dr([Ô]Total[Ô]) = dgvMaterial.Rows(i).Cells(4).Value
Next
ds.Tables(0).Rows.Add(dr)
Dim cr As New RelatorioOrcamento
cr.SetDataSource(ds)
Form2.CrystalReportViewer1.ReportSource = cr
Form2.Show()
ele so pega a ultima linha do datagridview alguem pode me ajuda?
dr([Ô]CodMaterial[Ô]) = dgvMaterial.Rows(i).Cells(0).Value
dr([Ô]Descricao[Ô]) = dgvMaterial.Rows(i).Cells(1).Value
dr([Ô]Qtd[Ô]) = dgvMaterial.Rows(i).Cells(2).Value
dr([Ô]PrecoUnitario[Ô]) = dgvMaterial.Rows(i).Cells(3).Value
dr([Ô]Total[Ô]) = dgvMaterial.Rows(i).Cells(4).Value
Next
ds.Tables(0).Rows.Add(dr)
Dim cr As New RelatorioOrcamento
cr.SetDataSource(ds)
Form2.CrystalReportViewer1.ReportSource = cr
Form2.Show()
ele so pega a ultima linha do datagridview alguem pode me ajuda?
For i = 0 To dgvMaterial.Rows.Count - 1
dr([Ô]CodMaterial[Ô]) = dgvMaterial.Rows(i).Cells(0).Value
dr([Ô]Descricao[Ô]) = dgvMaterial.Rows(i).Cells(1).Value
dr([Ô]Qtd[Ô]) = dgvMaterial.Rows(i).Cells(2).Value
dr([Ô]PrecoUnitario[Ô]) = dgvMaterial.Rows(i).Cells(3).Value
dr([Ô]Total[Ô]) = dgvMaterial.Rows(i).Cells(4).Value
ds.Tables(0).Rows.Add(dr)
Next
Dim cr As New RelatorioOrcamento
cr.SetDataSource(ds)
Form2.CrystalReportViewer1.ReportSource = cr
Form2.Show()
Tenta isto
dr([Ô]CodMaterial[Ô]) = dgvMaterial.Rows(i).Cells(0).Value
dr([Ô]Descricao[Ô]) = dgvMaterial.Rows(i).Cells(1).Value
dr([Ô]Qtd[Ô]) = dgvMaterial.Rows(i).Cells(2).Value
dr([Ô]PrecoUnitario[Ô]) = dgvMaterial.Rows(i).Cells(3).Value
dr([Ô]Total[Ô]) = dgvMaterial.Rows(i).Cells(4).Value
ds.Tables(0).Rows.Add(dr)
Next
Dim cr As New RelatorioOrcamento
cr.SetDataSource(ds)
Form2.CrystalReportViewer1.ReportSource = cr
Form2.Show()
Tenta isto
Aparece a seguinte mensagem
[Ô]This row already belongs to this table.[Ô]
[Ô]This row already belongs to this table.[Ô]
Tópico encerrado , respostas não são mais permitidas