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

我从来没有做过那样的事......我不确定这是否可能。然而，可以肯定的是使用参数来控制报告标题。只需创建一个参数，然后rpt.SetParamterValue("title", "Some Title")

Answer 2

因为您已将问题确定为“存在未定义”。解决这个问题更直截了当。尝试将“存在”行替换为：

    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

将这行代码放在模块的开头

Imports System.IO.File

动态水晶报告

4 个答案: