Dim ds As New Crystal_DS Dim DT_TAB As DataTable = ds.Tables.Add("Summary") If LV.Items.Count > 1 Then For i As Integer = 0 To LV.Items(0).SubItems.Count - 1 Dim DCOL As New DataColumn(LV.Columns(i).Text) DT_TAB.Columns.Add(DCOL) Next End If For i As Integer = 0 To LV.Items.Count - 1 Dim DROW As DataRow = DT_TAB.NewRow For j As Integer = 0 To LV.Items(i).SubItems.Count - 1 DROW(LV.Columns(j).Text) = LV.Items(i).SubItems(j).Text Next DT_TAB.Rows.Add(DROW) Next DataGridView1.DataSource = ds.Tables("Summary") 'ds.Tables.Add(DT_TAB) ds.AcceptChanges() Dim objRpt As New TripSheet Dim strReportPath As String = Application.StartupPath & "\Cry_Chart\TripSheet.rpt" objRpt.Load(strReportPath) objRpt.SetDataSource(ds.Tables("Summary")) CrystalReportViewer1.ReportSource = objRpt 'CrystalReportViewer1.DataBind()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)