AJUDA COM RELATORIO

FONSANTOS 26/09/2013 16:55:33
#429313
Pessoal boa tarde venho novamente pedir ajuda dos universitários, bom estou criando uma OC que mostra oque esta no datagrid do form em um Crystal reports até ai tudo bem o CODE mostra oque esta no datagrid mas o problema é que ele apenas mostra a primeira linha as demais não, já quebrei a cabeça e mudei o code varias x mas a única forma que não da erro é esta...

Private Sub CmdOrdemC_Compras_Click(sender As Object, e As EventArgs) Handles CmdOrdemC_Compras.Click
Try

Dim dt As New DataTable

With dt
.Columns.Add([Ô]Cod_OC[Ô])
.Columns.Add([Ô]Descricao[Ô])

End With



For Each dr As DataGridViewRow In Me.Tabela_DataGrew.Rows

dt.Rows.Add(dr.Cells([Ô]Cod_OC[Ô]).Value, dr.Cells([Ô]Descricao[Ô]).Value)

Next

Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New CReportCompras
rptDoc.SetDataSource(dt)
OC.CrystalReportViewer1.ReportSource = rptDoc
OC.ShowDialog()
OC.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

eu até tentei um code que encontrei no fórum mas da erro... AJUDA AI PESSOAL...
MADMAX 26/09/2013 17:42:37
#429316 Resposta escolhida
nesta parte do codigo [Ô] dt.Rows.Add(dr.Cells([Ô]Cod_OC[Ô]).Value, dr.Cells([Ô]Descricao[Ô]).Value) [Ô] não seria dv no lugar de dr ???? e aonde esta dt não seria dg ??? Você esta usando este codigo ai .. pq está meio estranha parte que você carrega estranho não dar erro.

Se eu entendi bem esta linha deveria ser assim .

dg.Rows.Add(dvCells([Ô]Cod_OC[Ô]).Value, dv.Cells([Ô]Descricao[Ô]).Value)
FONSANTOS 27/09/2013 10:00:33
#429330
Pessoal alguém pode me dar uma luz ai...
MADMAX 27/09/2013 13:53:01
#429345
FONSANTOS não te ajudou ???? Ve se assim funciona !!!!


Private Sub CmdOrdemC_Compras_Click(sender As Object, e As EventArgs) Handles CmdOrdemC_Compras.Click
Try

Dim dt As New DataTable

With dt
.Columns.Add([Ô]Cod_OC[Ô])
.Columns.Add([Ô]Descricao[Ô])

End With



For Each dr As DataGridViewRow In Me.Tabela_DataGrew.Rows

dt.Rows.Add(drCells([Ô]Cod_OC[Ô]).Value, dr.Cells([Ô]Descricao[Ô]).Value)

Next

Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New CReportCompras
rptDoc.SetDataSource(dt)
OC.CrystalReportViewer1.ReportSource = rptDoc
OC.ShowDialog()
OC.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
FONSANTOS 27/09/2013 14:20:36
#429349
Madmax
Boa tarde amigo

o cód que vc me passou esta idêntico ao meu, e ele pega apenas a primeira linha do grid e se eu digitar mais alguma linha ele não mostra ...
MADMAX 30/09/2013 11:19:56
#429405
Tenta fazer diferente fiz um exemplo aqui funcionou legal..

Public Class Form1
Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Me.Tabela_DataGrew.Rows.Add([Ô]1[Ô], [Ô]descr 1[Ô])
Me.Tabela_DataGrew.Rows.Add([Ô]2[Ô], [Ô]descr 2[Ô])
Me.Tabela_DataGrew.Rows.Add([Ô]3[Ô], [Ô]descr 3[Ô])
Me.Tabela_DataGrew.Rows.Add([Ô]4[Ô], [Ô]descr 4[Ô])




With dt
.Columns.Add([Ô]Cod_OC[Ô])
.Columns.Add([Ô]Descricao[Ô])
End With

For index As Integer = 0 To Me.Tabela_DataGrew.Rows.Count - 1


dt.Rows.Add(Me.Tabela_DataGrew.Rows(index).Cells([Ô]Cod_OC[Ô]).Value, Me.Tabela_DataGrew.Rows(index).Cells([Ô]Descricao[Ô]).Value)



Next


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
str = [Ô][Ô]
For index As Integer = 0 To dt.Rows.Count - 1

str += dt.Rows(index)([Ô]Cod_OC[Ô]).ToString() & [Ô] - [Ô] & dt.Rows(index)([Ô]Descricao[Ô]).ToString() & [Ô]
[Ô]

Next
MessageBox.Show(str)


End Sub
End Class
FONSANTOS 08/10/2013 03:46:33
#429670
Valew Mad certinho
Tópico encerrado , respostas não são mais permitidas
Voltar