CRYSTALL REPORT 8.5 NAO VINCULADO

RICARDO.RAPA 04/04/2014 17:48:47
#436915
Boa Noite,
Crio o Relatório e utilizo o datareport não vinculado para enviar dados dessa forma:

Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim Vfone
Set rs = New ADODB.Recordset

rs.Fields.Append [Ô]nome[Ô], adVarChar, 255
rs.Fields.Append [Ô]fone[Ô], adVarChar, 50
rs.Fields.Append [Ô]curso[Ô], adVarChar, 255

rs.Open

Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF

rs.AddNew
rs.Fields([Ô]nome[Ô]) = Data1.Recordset.Fields([Ô]cod[Ô]) & [Ô] - [Ô] & Data1.Recordset.Fields([Ô]nome[Ô])
Vfone = Data1.Recordset.Fields([Ô]fone[Ô])
If Vfone <> [Ô][Ô] Then rs.Fields([Ô]fone[Ô]) = Data1.Recordset.Fields([Ô]fone[Ô]) Else rs.Fields([Ô]fone[Ô]) = [Ô]-[Ô]
rs.Fields([Ô]curso[Ô]) = Data1.Recordset.Fields([Ô]curso[Ô])
rs.Update

Data1.Recordset.MoveNext
Loop

Instrutores.Orientation = rptOrientPortrait
Set Instrutores.Sections([Ô]section4[Ô]).Controls([Ô]logotipo[Ô]).Picture = LoadPicture(alias2 & [Ô]logotipo.jpg[Ô])
With Instrutores

Set .DataSource = rs
.Show
End With

Queria fazer da mesma forma utilizando o Crystall Report 8.5 Como faço?

GRATO!
NILSONTRES 05/04/2014 17:15:17
#436931 Resposta escolhida
No Crystal, vc pode utilizar DataSet ou Objeto List
Tópico encerrado , respostas não são mais permitidas
Voltar