как создать отчет crystal из datagridview vb.net
теперь у меня есть datagridview,
bnow я должен создать crestalreport от управления datagridview, когда я нажимаю на кнопку Печать..
Вы не.
Однако вы можете передать любой источник данных, к которому привязываете DataGridView, в CrystalReports. обычно вы просто сообщаете CrystalReports, каким должен быть запрос базы данных, который он должен использовать для получения своих данных. Это совершенно отдельная операция от передачи данных в DataGridView.
Это очень просто вместо приведенного ниже кода
crystal.SetDataSource(TABLE) change to crystal.SetDataSource(DataGridView1.Datasource)
Просто изучите его . это образец из моего кода он работает правильно
Private Sub btnPrint_Click(ByVal sender As System.Объект, бывал е как система.EventArgs) обрабатывает btnPrint.Щелчок
Дим ДТ в качестве нового объекта DataTable
Dim dsPR как новый набор данных
С dt
.Колонки.Добавить ("IPR_ID")
.Колонки.Добавить ("количество")
.Колонки.Добавить ("единицы измерения")
.Колонки.Добавить ("Описание")
.Колонки.Добавить ("ABC")
Конец С
Для каждого доктора, как ячейки datagridviewrow в меня.dgvDefaultItem.Строк
ДТ.Строк.Добавить(др.Клеток("IPR_ID").Значение, др. ячейки("количество").Значение, др. ячейки ("единицы измерения").Значение, др. ячейки("описание").Значение, доктор.Клеток("Азбука").Ценность)
Следующий
Тусклый rptDoc как CrystalDecisions.CrystalReports.Двигатель.Документе
rptDoc = новый Abstract_Report
rptDoc.SetDataSource(ДТ)
rptDoc. SetParameterValue ("запрос", txtrequest. Text)
rptDoc.SetParameterValue("админ", txtadmin.Текст)
rptDoc. SetParameterValue ("сельское хозяйство", txtagri. Text)
rptDoc. SetParameterValue ("инженер", txtengineer. Text)
rptDoc. SetParameterValue ("планирование", txtplanning.Текст)
rptDoc. SetParameterValue("CGSO", txtcgso. Text)
rptDoc. SetParameterValue ("казначей", txttreasurer. Text)
Abstract_viewer.crptViewer. ReportSource = rptDoc
Abstract_viewer.Метод showdialog()
Abstract_viewer.Располагать()
Конец Подводной Лодки
Конец Класса