-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: Rambabu Kodali
Message 2 in Discussion
Try This Private Function GetTextObject _
(ByVal reportObjectName As String) As TextObject
Dim text As TextObject ' Get the ReportObject by name, cast it as a TextObject,
' and return it.
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 Private Function GetFieldObject _
(ByVal reportObjectName As String) As FieldObject
Dim field As FieldObject ' Get the ReportObject by name, cast it as a
FieldObject,
' and return it.
If TypeOf _
(Report.ReportDefinition.ReportObjects. _
Item(reportObjectName)) Is FieldObject Then
field = _
Report.ReportDefinition.ReportObjects. _
Item(reportObjectName)
GetFieldObject = field
Else : GetFieldObject = Nothing
End If
End Function
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
