dataset dinamico y evento imprimir en crystal reports

[arcr]

hola amigos del foro:

Estoy creando un reporte con crystal report en visual basic 2008. He escuchado hablar acerca de los dataset dinamicos no entiendo porque mi codigo no esta funcionando no se si este el problema en el codigo o en el diseño del reporte de donde estoy extrayendo los datos del data set tal vez no este dando en la opcion correcta o no este haciendo bien el llenado del dataset bueno anexo mi codigo para ver si alguien pudiera ayudarme se los agradeceria bastante.

Aqui lleno los datos de una lista a un dataset

Dim dset2 As New DataSetFechasEmpeos

Dim tablita2 As DataTable = dset2.Tables.Add("Items")

tablita2.Columns.Add("Fecha", Type.GetType("System.String"))

tablita2.Columns.Add("CobroRefrendo", Type.GetType("System.String"))

tablita2.Columns.Add("CobroDesempeo", Type.GetType("System.String"))

Dim dAtArOw2 As DataRow

Dim y As Integer

For y = 0 To ListaFechas.Count - 1

dAtArOw2 = tablita2.NewRow()

dAtArOw2("Fecha") = ListaFechas.Item(y).Fecha

dAtArOw2("CobroRefrendo") = ListaFechas.Item(y).Refrendo

dAtArOw2("CobroDesempeo") = ListaFechas.Item(y).Desempeno

tablita2.Rows.Add(dAtArOw2)

Next

CRs.CRV1.Refresh()

CRs.Text = "Boleta de empeo"

CRs.ShowDialog()

no se si este llenado este correcto pero si tengo datos en la lista ya lo he comprobado porque los mando imprimir en un msgbox y si hay

datos espero alguien pueda ayudarme.



Otra cosa que se me ha presentado es que en otro dataset solo me muestra los datos del ultimo registro

y el llenado de mi dataset lo hago de la siguiente manera:

Dim dset As New DataSetBoleta

Dim tablita As DataTable = dset.Tables.Add("Items")

tablita.Columns.Add("Cantidad", Type.GetType("System.String"))

tablita.Columns.Add("Clave", Type.GetType("System.String"))

tablita.Columns.Add("Descripcion", Type.GetType("System.String"))

tablita.Columns.Add("Comentario", Type.GetType("System.String"))

tablita.Columns.Add("Kilataje", Type.GetType("System.String"))

tablita.Columns.Add("Peso", Type.GetType("System.String"))

tablita.Columns.Add("Avaluo", Type.GetType("System.String"))

tablita.Columns.Add("Prestamo", Type.GetType("System.String"))

Dim dAtArOw As DataRow

Dim i As Integer

For i = 0 To Me.dgJoyasEmpeno.Rows.Count - 1

dAtArOw = tablita.NewRow()

dAtArOw("Cantidad") = Me.dgJoyasEmpeno.Item("ColCantidad", i).Value

dAtArOw("Clave") = Me.dgJoyasEmpeno.Item("ColClave", i).Value

dAtArOw("Descripcion") = Me.dgJoyasEmpeno.Item("ColDescripcion", i).Value

dAtArOw("Comentario") = Me.dgJoyasEmpeno.Item("ColComentario", i).Value

dAtArOw("Kilataje") = Me.dgJoyasEmpeno.Item("ColKilataje", i).Value

dAtArOw("Peso") = Me.dgJoyasEmpeno.Item("ColPeso", i).Value

dAtArOw("Avaluo") = Me.dgJoyasEmpeno.Item("ColAvaluo", i).Value

dAtArOw("Prestamo") = Me.dgJoyasEmpeno.Item("ColPrestamo", i).Value

tablita.Rows.Add(dAtArOw)

Next

Dim objRpt As New Boleta

objRpt.SetDataSource(dset.Tables(1))

CRs.CRV1.ReportSource = objRpt

otra cosa que necesito es saber el evento cuando ya termina de imprimir el reporte

y tambien necesito saber si termino o no de imprimir porque necesito hacer cosas internamente

gracias por sus respuestas