Ver Mensaje Individual
  #4 (permalink)  
Antiguo 09/11/2011, 18:28
Avatar de rikakashi
rikakashi
 
Fecha de Ingreso: julio-2011
Mensajes: 226
Antigüedad: 13 años, 5 meses
Puntos: 33
Respuesta: Crear Crystal Reports con VB NET en tiempo de ejecución

veras to manejo mis tablas de la misma manera despues de eso lo que hago es crear un dataset y llenarlo con los campor que ire requiriendo por ejemplo

dim dtable as new datatable

y este lo lleno con mis valores asi

With dtmov
.Columns.Add("Documento") '0
.Columns.Add("Referencia") '1
.Columns.Add("Fecha_Fac") '2
.Columns.Add("Fecha_Ven") '3
.Columns.Add("Tipo Mov") '4
.Columns.Add("Cargos") '5
.Columns.Add("Creditos") '6
.Columns.Add("S a l d o") '7
.Columns.Add("Membresia") '8
.Columns.Add("De") '9
.Columns.Add("Asta") '10
.Columns.Add("Cliente") '11
.Columns.Add("Descripcion") '11
End With
End If

For Each dr As DataGridViewRow In Me.dgv_mov.Rows
dtmov.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value, _
dr.Cells(2).Value, dr.Cells(3).Value, _
dr.Cells(4).Value, dr.Cells(6).Value, _
dr.Cells(7).Value, dr.Cells(8).Value, _
membresia_num, Format(dtp_mov_ini.Value.Date, "dd/MMM/yyyy"), _
Format(dtp_mov_fin.Value.Date, "dd/MMM/yyyy"), txt_nom_completo.Text, _
dr.Cells(5).Value)
Next

pero antes de esto en mi priyecto, click derecho y agregar nuevo elemento dataset creo una tabla exactamente igual en forma de vista a la que estoy creando por codigo esta nos servira para poner los datos en el report y despues de ello seguirias los pasos que vienen en el tuto anterior llenar tu report

Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocum ent
rptDoc = New doc_crv_mov
rptDoc.SetDataSource(dtmov)
vercr.crv_movimientos.ReportSource = rptDoc

para ello me base en esta parte primero

http://setha.info/ict-vb2008/41-ict-vb2008-0009.html
__________________
la programación es tan grande como la imaginación (+.+)