Динамический Кристалл Отчет

Question

Я хочу получить следующую работу, пожалуйста, кто-нибудь может посоветовать ...

Dim rpt As ReportDocument

If (Exists(rpt.ReportDefinition.ReportObjects("crlTitle"))) Then
   txtTitle = CType(rpt.ReportDefinition.ReportObjects("crlTitle"), TextObject)
   txtTitle.Color = mainColour
   txttitle.Text = "Report Title"
End If

Любая помощь очень ценится.

Answer 1

Поместите эту строку кода в начало модуля

Imports System.IO.File

Answer 2

Поскольку вы определили проблему как «Существующий не определен». Решение этой проблемы является более простым. Попробуйте заменить строку «Exists» на:

    If (rpt.ReportDefinition.ReportObjects.Contains("crlTitle")) Then

Были ли другие проблемы?

Answer 3

Вот мое решение:

Dim rpt as ReportDocument
Dim rptTextObject as TextObject = nothing
Dim mainColour As Color = Color.Green

Try
    If (rpt.ReportDefinition.ReportObjects("crlTitle") IsNot Nothing) Then
      rptTextObject = CType(rpt.ReportDefinition.ReportObjects("crlTitle"), TextObject)
      rptTextObject.Color = mainColour
      rptTextObject.Text = "Report Title"
    End If
Catch
End Try

Я делаю это для каждого объекта в отчете, для которого я хочу установить текст или цвет.

Answer 4

Я никогда не делал ничего подобного ... Я не уверен, возможно ли это.Что будет работать наверняка, так это использование параметра для управления заголовком отчета.Просто создайте параметр и затем rpt.SetParamterValue("title", "Some Title")