如何使用代码动态设置水晶报表中的文本，字段等对象呢？

如何使用代码动态设置水晶报表中的文本，字段等对象呢？

//VB

首先，你必须要声明一个ＯＢＪＥＣＴ变量(eg. TextObject, FieldObject, ......)，当然不是一般的对象，而是：
   Dim xObject As CrystalDecisions.CrystalReports.Engine.FieldObject（字段）
   Dim xObject As CrystalDecisions.CrystalReports.Engine.TextObject（文本）
　 Dim xObject As CrystalDecisions.CrystalReports.Engine.LineObject（线条）
   Dim xObject As CrystalDecisions.CrystalReports.Engine.BoxObject（矩形框）
......
其次，你必须将水晶报表的真实对象赋值给它，例如：
   xObject = crReport.ReportDefinition.ReportObjects.Item("FieldObjectName")
   xObject = crReport.ReportDefinition.ReportObjects.Item("TextObjectName")
   xObject = crReport.ReportDefinition.ReportObjects.Item("LineObjectName")
   xObject = crReport.ReportDefinition.ReportObjects.Item("BoxObjectName")
......
然后，你就可以调用它的各种属性和方法了：

　对于FieldObject,你可以：
　　　1.设置数值字段的小数点位数：
         xObject.FieldFormat.NumericFormat.DecimalPlaces = 4
      2.设置布尔字段的输出类型：　
        xObject.FieldFormat.BooleanFormat.OutputType =CrystalDecisions.Shared.BooleanOutputType.YesOrNo
      3.设置其他格式如(CommonFormat,DateTimeFormat,DateFormat,TimeFormat)

　对于TextObject,你可以：
　　　　1.改变文本：
           xObject.Text = "嘿嘿"
        2.改变字体：　
          xObject.ApplyFont(New Font("宋体", 10.0!))
        3.设置颜色：
　　　　　xObject.Color = Color.Red
　　　　3.隐藏显示：
　　　　　xObject.ObjectFormat.EnableSuppress = True

　对于LineObject,你可以：
　　　　1.设置线条风格：
          xObject.LineStyle = CrystalDecisions.Shared.LineStyle.DotLine
        2.设置线条颜色：　
          xObject.LineColor = Color.Blue
        3.设置线条宽度：
　　　　　xObject.LineThickness = 3
        4.设置其他格式（如：位置(top,left,right,bottom)，边框等）
　　　　　
　对于BoxObject,你可以：
　　　　1.设置填充颜色：
          xObject.FillColor = Color.Brown
　　　　2.设置线条风格：
          xObject.LineStyle = CrystalDecisions.Shared.LineStyle.DotLine
        3.设置线条颜色：　
          xObject.LineColor = Color.Blue
        4.设置线条宽度：
　　　　　xObject.LineThickness = 3
        5.设置其他格式（如：位置(top,left,right,bottom)，边框等）

 

//C#
    
   CrystalDecisions.CrystalReports.Engine.TextObject xObject;
   xObject = (CrystalDecisions.CrystalReports.Engine.TextObject)CrystalReportSource1.ReportDocument.ReportDefinition.ReportObjects["Text1"];   
   xObject.Text="条件";