crystal report 動態變更線條 LineObject

 'crystal report  動態變更線條  LineObject

       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 Line As LineObject = crReport1.ReportDefinition.ReportObjects("Line1")

        '隱藏線條
        'Line.ObjectFormat.EnableSuppress = True
        '變更線條樣式
        Line.LineStyle = LineStyle.SingleLine
        '變更線條位置
        Line.Left = 100
       '變更線條顏色
        Line.LineColor = Drawing.Color.Red

        '

        '

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

crystal report 動態變更公式欄位 FormulaFields

'crystal report  動態變更公式 FormulaFields

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 fieldObj As FormulaFieldDefinition
        fieldObj = crReport1.DataDefinition.FormulaFields("公式1")

        '變更公式內容
        fieldObj.Text = "{TABLE.COLUMNA}"