crystal report 動態變更文字欄位 TextObject

'crystal report  動態變更文字欄位  TextObject

  Dim crReport1 As ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument

        '載入報表
        Dim Path As String = Request.ServerVariables("APPL_PHYSICAL_PATH")
        crReport1.Load(Path & "rpt\STANDARD.rpt")

   '找到已存在的文字欄位

        Dim txtobj As TextObject

        txtobj = crReport1.ReportDefinition.ReportObjects("TEXT1")

        txtobj.Text = "變更後內容"

        txtobj.Height = 285

        txtobj.Top = 1985

        txtobj.Left = 300

        txtobj.Width = 2000

        txtobj.ObjectFormat.EnableCanGrow = True