استشارة مستعمجلة بالطباعة

عباقرة الفيجوال المحترمين :

عندي برنامج صغير وكل شي فيه تمام عدا مشكلة الطباعة // والبرنامج يعمل مع DATAGRIDVIEW مرتبطةبـ DATASET ضمن المشروع نفسه ، اي لا يوجد ارتباط للبنامج باي داتا خارجية حيث يقرأ المعلمومات من ملفات بنظام BINARY ثم يضعها في الداتا غريد ... والمشكلة فقط الطباعة حيث اريد ان احول المعلومات من DATAGRID الى CRYSTAL REPORT لاظهرها .. وتظهر لي رسالة خطأ عندما يصل الى report.setdatasource

وهذا الكود الذي استعملته ... واذا كان عندكم طريقة اخرى فعالة فيا ريت ....

Dim DsName As String = "NewDs"

Dim DS As New DataSet(DsName)

Dim Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim DsTable As New DataTable("Print")

Dim Count_Col As Short

Dim Count_Row As Short

Dim ColumnsFound As Short

For Count_Col = 0 To 8

If DGV_statement.Columns(Count_Col).Visible Then

DsTable.Columns.Add(DGV_statement.Columns(Count_Col).HeaderText)

ColumnsFound += 1

End If

For Count_Row = 0 To DGV_statement.RowCount - 1

DsTable.Rows.Add()

For Count_Col = 0 To ColumnsFound

DsTable.Rows(Count_Row).Item(Count_Col) = _

DGV_statement.Item(Count_Col, Count_Row).Value

DS.Tables.Add(DsTable)

Rpt.SetDataSource(DS)

Frm_Preview.CrystalReportViewer_print.ReportSource = Rpt

Frm_Preview.CrystalReportViewer_print.Show()

Frm_Preview.CrystalReportViewer_print.Activate()

نشامى يا شباب ... اخوكم مزنوء

استشارة مستعمجلة بالطباعة

مواضيع مشابهة