[محاسب يوسف]

مثال صغير
Dim dt As New DataTable
With dt

.Columns.Add("cod")
.Columns.Add("item")

End With

For Each dr As DataGridViewRow In Me.DataGrid1.Rows
Dim c As String = dr.Cells(0).Style.BackColor.Name
Dim cf As String = dr.Cells(0).Style.ForeColor.Name
dt.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value)
Next

Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New Crystalnameaccount
rptDoc.SetDataSource(dt)
reportchang.CrystalReportViewer1.ReportSource = rptDoc
reportchang.ShowDialog()
reportchang.Dispose()