Hello,

Использую VB.NET и библиотеку crystala CRAXDRT от версии 8.5.
Надо в run-time добавить Field Object и передать данные из програмно созданного DataSet.

Код выглядит так :

Dim strVar1 As String
Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report
Dim crDB As CRAXDRT.Database
crReport = crApp.OpenReport("C:\Report1.rpt")

'Create disconected dataset
Dim myDS As New Data.DataSet("TemplateData")
Dim myTable As Data.DataTable = myDS.Tables.Add("tblTemplateData")
Dim myDr As Data.DataRow

With myTable
.Columns.Add("TemplateHTML", Type.GetType("System.String"))
End With

myDr = myTable.NewRow()
myDr("TemplateHTML") = "Hello from Fucking Crystal"

myTable.Rows.Add(myDr)

'Add Objects to report
Dim crFieldObject As CRAXDRT.FieldObject

' *****Valitsa na sledujuschej strochke ********

crFieldObject = crReport.Sections.Item("D").AddFieldObject("{tblTemplateData.TemplateHTML}", 10, 10)
crFieldObject.TextFormat = CRAXDRT.CRTextFormat.crHTMLText
crFieldObject.CanGrow = True

crReport.ExportOptions.DestinationType = CRAXDRT.CRExportDestinationType.crEDTDiskFile
crReport.ExportOptions.FormatType = CRAXDRT.CRExportFormatType.crEFTPortableDocFormat
crReport.ExportOptions.DiskFileName = "c:\Report1.pdf"
crReport.Export(False)

Чего тут не хватает ?

Заранее благодарен за помощь.