PROBLEMAS CRYSTAL REPORTS

TURETO 27/10/2012 11:00:12
#412965
Bom dia Senhores, estou tentando converter meus relatórios para o crystal e estou encontrando algumas dificuldades..

atualmente utilizo: Visual Studio 2010 Ultimate + Crystal Report v13

Criei um dataset, e estou populando ele com as informações de um datagrid, através de um datatable e no crystal report busco as informações inseridades, só que as mesmas não estão saindo no relatório.

Abaixo segue exemplo como estou fazendo:

Dim dt As New DataTable
dt.Columns.Clear()
dt.Columns.Add([Ô]ref[Ô])
dt.Columns.Add([Ô]tam[Ô])
dt.Columns.Add([Ô]produto[Ô])
dt.Columns.Add([Ô]vlrItem[Ô])
dt.Columns.Add([Ô]qtdecsg[Ô])
dt.Rows.Clear()

For cont As Integer = 0 To Me.dtgConsignacoes.RowCount - 1
dt.Rows.Add(Me.dtgConsignacoes.Item(cRef.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cTamanho.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cDescricao.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cValor.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cQtdeCsg.Index, cont).Value)
Next

Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New rptConsig
rptDoc.SetDataSource(dt)

frmVisualiza.CrystalReportViewer1.ReportSource = rptDoc
frmVisualiza.ShowDialog()
frmVisualiza.Dispose()

quando eu adiciono os TfieldObjects e visualizou as informações algumas estão saindo, e em alguns casos não sai nenhuma, alguém tem ideia do que possa ser ? Talvez esteja fazendo algo errado, nunca trabalhei com o cvrystal report.

Desde de já agradeço a quem poder ajudar.
ALTAIR148 27/10/2012 18:06:26
#412985 Resposta escolhida
Qual o nome do dataset? Vamos chamar o Dataset de DsTeste



Dim ds As New Dsteste
For cont As Integer = 0 To Me.dtgConsignacoes.RowCount - 1

Dim dt As DataRow = ds.Tables(0).NewRow()
dt.Rows.Add(Me.dtgConsignacoes.Item(cRef.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cTamanho.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cDescricao.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cValor.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cQtdeCsg.Index, cont).Value)
ds.Tables(0).Rows.Add(dt)

Next

Dim CR As New rptDoc 
cr.SetDataSource(ds)
frmVisualiza.CrystalReportViewer1.ReportSource = CR
frmVisualiza.ShowDialog()
frmVisualiza.Dispose()


Acredito que assim funcione, aqui funciona blz assim.
TURETO 05/11/2012 23:27:51
#413564
Citação:

:
Qual o nome do dataset? Vamos chamar o Dataset de DsTeste



Dim ds As New Dsteste
For cont As Integer = 0 To Me.dtgConsignacoes.RowCount - 1

Dim dt As DataRow = ds.Tables(0).NewRow()
dt.Rows.Add(Me.dtgConsignacoes.Item(cRef.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cTamanho.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cDescricao.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cValor.Index, cont).Value)
dt.Rows.Add(Me.dtgConsignacoes.Item(cQtdeCsg.Index, cont).Value)
ds.Tables(0).Rows.Add(dt)

Next

Dim CR As New rptDoc 
cr.SetDataSource(ds)
frmVisualiza.CrystalReportViewer1.ReportSource = CR
frmVisualiza.ShowDialog()
frmVisualiza.Dispose()


Acredito que assim funcione, aqui funciona blz assim.



Muito obrigado Altair, Consegui resolver o problema.
Tópico encerrado , respostas não são mais permitidas
Voltar