Создаеш очет станжартными средствами Crystal Reports
на форму ставиш СrystalReportViewer и ReportDocument. для ReportDocument в качестве документа надао поставить твой отчет.
а в собитии Load формы
- Код: Выделить всё
Dim myReport As New имя_твоего_очета
Dim myObj As Object
For Each myObj In myReport.ReportDefinition.ReportObjects
strName = myTextObj.Name
Select Case strName
Case "txtName"
myObj.Text = "Суда надо поставит текст который надо отображать на контролле"
Case "txtDate"
myTextObj.Text = DateTime.Todat.ToString
.......
.......
End Select
next
СrystalReportViewer1.ReportSource = myReport
надо ешё в раздел Imports поместит етот код
- Код: Выделить всё
Imports CrystalDecisions.CrystalReports.Engine
можно ешё передать фильтр для записеё отоьражаемых в очоте
- Код: Выделить всё
СrystalReportViewer1.SelectionFormula = "{myReportName.ID} = " & strID
здесь myReportName имя твоего очета а ID поле в очете по которому нужно отфильтроват записи а strID переменная в котором хранится значение по которому будут филтроватся записи.
этот код надо поставить до вызова
- Код: Выделить всё
СrystalReportViewer1.ReportSource = myReport
а форму в котором находится очет визиваеш как обично методом ShowDialog