Private Function GetTextObject(ByVal reportObjectName As String) As TextObject
Dim text As TextObject
Dim Report As New ReportDocument()
Report.Load("rptOrderXHK")
If TypeOf (Report.ReportDefinition.ReportObjects.Item(reportObjectName)) Is TextObject Then
text = Report.ReportDefinition.ReportObjects.Item(reportObjectName)
GetTextObject = text
Else
GetTextObject = Nothing
End If
End Function
下面的示例返回 TextObject 对象。
[Visual Basic]
Private Function GetTextObject _
(ByVal reportObjectName As String) As TextObject
Dim text As TextObject
' 按名称获取 ReportObject,将其转换为 TextObject,
' 并返回此对象。
If TypeOf _
(Report.ReportDefinition.ReportObjects. _ /////////////这里的Report
Item(reportObjectName)) Is TextObject Then
text = _
Report.ReportDefinition.ReportObjects. _
Item(reportObjectName)
GetTextObject = text
Else : GetTextObject = Nothing
End If
End Function
[Visual Basic]
' 声明将参数传递给
'查看器控件所需的变量。
Dim paramFields As New ParameterFields()
Dim paramField As New ParameterField()
Dim discreteVal As New ParameterDiscreteValue()
Dim rangeVal As New ParameterRangeValue()
海波.NET
问题:
动态改变水晶报表中的文本字段
————————————————————————————————————————————————————————————————————————————
一、TextObject 类
——————————————————————————————————————
请参见:
TextObject 成员 | CrystalDecisions.CrystalReports.Engine 命名空间
——————————————————————————————————————
要求:
命名空间:CrystalDecisions.CrystalReports.Engine
平台:Windows 98,Windows NT 4.0,Windows Millennium Edition,Windows 2000
程序集:CrystalDecisions.CrystalReports.Engine
语言C#,C++ Visual,Basic
——————————————————————————————————————
表示报表中的文本对象。该对象提供属性和方法,以检索信息和设置报表中的文本对象选项。
有关该类型所有成员的列表,请参见TextObject 成员。
Object
ReportObject
TextObject
[Visual Basic]
Public Class TextObject
Inherits ReportObject
[C#]
public class TextObject : ReportObject
[C++]
__gc public class TextObject : public ReportObject
备注
通过ReportObjects集合的Item 属性,按索引或按名称来检索ReportObject对象,并将 ReportObject 转换as(为)TextObject。
——————————————————————————————————————
示例
下面的示例返回 TextObject 对象。
[Visual Basic]
Private Function GetTextObject _
(ByVal reportObjectName As String) As TextObject
Dim text As TextObject
' 按名称获取 ReportObject,将其转换为 TextObject,
' 并返回此对象。
If TypeOf _
(Report.ReportDefinition.ReportObjects. _
Item(reportObjectName)) Is TextObject Then
text = _
Report.ReportDefinition.ReportObjects. _
Item(reportObjectName)
GetTextObject = text
Else : GetTextObject = Nothing
End If
End Function
[C#]
private TextObject GetTextObject
(string reportObjectName)
{
TextObject text;
// 按名称获取 ReportObject,将其转换为 TextObject,
//并返回此对象。
text = Report.ReportDefinition.ReportObjects[reportObjectName]
as TextObject;
if (text != null) return text;
else return null;
}
[C++]
TextObject* GetTextObject(String* reportObjectName)
{
TextObject* text;