i made that script in the report format section and its work fine
|
Quote:
|
try
Dim txt As String = ReportUtilities.ReturnTextBoxValue(rpt,"GrpDynamic Header1","txtDynamicHeader1")
Dim newtxt As String = ""
Dim str As String() = txt.Split(" "C)
For Each s As String In str
Dim c As Char() = s.ToCharArray()
For i As Integer = 0 To c.Length - 1
If i = 0 Then
newtxt += c(i).ToString().ToUpper()
Else
newtxt += c(i).ToString().ToLower()
End If
Next
newtxt += " "
Next
ReportUtilities.SetTextBoxValue(rpt,"GrpDynamicHea der1","txtDynamicHeader1",newtxt)
catch
End try
|