Hi BlackDevil,
This is how i do it :
Dim crreportobject As
CrystalDecision s.CrystalReport s.Engine.Report Object
For Each crreportobject In
crReportDocumen t.ReportDefinit ion.ReportObjec ts
'' formats text object
If TypeOf (crreportobject ) Is
CrystalDecision s.CrystalReport s.Engine.TextOb ject Then
Dim crtextobject As
CrystalDecision s.CrystalReport s.Engine.TextOb ject
If Trim(crreportob ject.Name) = "Text2" Then
crtextobject = DirectCast(crre portobject,
CrystalDecision s.CrystalReport s.Engine.TextOb ject)
crtextobject.Te xt = "Hi"
End If
End If
'' formats field object
If TypeOf (crreportobject ) Is
CrystalDecision s.CrystalReport s.Engine.FieldO bject Then
Dim crtextobject As
CrystalDecision s.CrystalReport s.Engine.FieldO bject
If Trim(crreportob ject.Name) = "Field73" Then
crtextobject = DirectCast(crre portobject,
CrystalDecision s.CrystalReport s.Engine.FieldO bject)
crtextobject.Ob jectFormat.Hori zontalAlignment =
Alignment.Right Align
End If
End If
Next
Kind Regards
Jorge
-----Original Message-----
Hello,
Is there a way to format the data when it is passed into
the CrystalReport(CR).. for example.. In the original table, a
number may beleft aligned, how to change it to right alignment?.. in
other words Iwant to change it's Format: Horizontal Alignment
from Left To Right if the
data passed in is an Integer, Currency, or
DateTime.
thanx
.