IMPRESSAO NO CR

WATAME 01/10/2012 08:53:11
#410904
Eh Altair pensei que tivesse me abandonado ehehehhe
Brigadão pela paciencia, pois, precisarei ainda muito de sua preciosa ajuda.
Meu codigo ta funcionando legal. Só falta ele percorrer o datagridview por emprestimo por clientes
está assim:

Citação:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dt As New DataTable
With dt
.Columns.Add([Ô]Modalidade[Ô])
.Columns.Add([Ô]Cliente[Ô])
.Columns.Add([Ô]DatadoEmprestimo[Ô])
.Columns.Add([Ô]Banco[Ô])
.Columns.Add([Ô]ValordoContrato[Ô])
.Columns.Add([Ô]ValordaParcela[Ô])
.Columns.Add([Ô]Prazo[Ô])
.Columns.Add([Ô]Comissional[Ô])
.Columns.Add([Ô]Comissao[Ô])
.Columns.Add([Ô]Corretor[Ô])
End With
Dim dr As DataGridViewRow = Me.DataGridView1.CurrentRow
dt.Rows.Add(dr.Cells([Ô]ModalidadeDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ClienteDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]DatadoEmprestimoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]BancoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ValordoContratoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ValordaParcelaDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]PrazoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ComissionalDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ComissaoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]CorretorDataGridViewTextBoxColumn[Ô]).Value)
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New Emprestimos
rptDoc.SetDataSource(dt)
Form5.CrystalReportViewer1.ReportSource = rptDoc
Form5.ShowDialog()
Form5.Dispose()
End Sub

ALTAIR148 01/10/2012 09:14:36
#410907
Não, não é que eu abandonei o tópico, é a falta de tempo mesmo... Tente da forma abaixo que deve dar certo.... 

Dim dt As New DataTable
        With dt
            .Columns.Add([Ô]Modalidade[Ô])
            .Columns.Add([Ô]Cliente[Ô])
            .Columns.Add([Ô]DatadoEmprestimo[Ô])
            .Columns.Add([Ô]Banco[Ô])
            .Columns.Add([Ô]ValordoContrato[Ô])
            .Columns.Add([Ô]ValordaParcela[Ô])
            .Columns.Add([Ô]Prazo[Ô])
            .Columns.Add([Ô]Comissional[Ô])
            .Columns.Add([Ô]Comissao[Ô])
            .Columns.Add([Ô]Corretor[Ô])
        End With
For x = 0 To DataGridView1.RowCount - 1
            Dim dr As DataGridViewRow = Me.DataGridView1.Rows(x)
        dt.Rows.Add(dr.Cells([Ô]ModalidadeDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ClienteDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]DatadoEmprestimoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]BancoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ValordoContratoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ValordaParcelaDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]PrazoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ComissionalDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]ComissaoDataGridViewTextBoxColumn[Ô]).Value, dr.Cells([Ô]CorretorDataGridViewTextBoxColumn[Ô]).Value)
next
        Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
        rptDoc = New Emprestimos
        rptDoc.SetDataSource(dt)
        Form5.CrystalReportViewer1.ReportSource = rptDoc
        Form5.ShowDialog()
        Form5.Dispose()
    End Sub
WATAME 01/10/2012 09:46:05
#410912
LEGAL CARA,
Tudo beleza agora.
Brigadão !!!
Resolvido tudo com For Each , Next
Abraço.
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar