http://www.cnblogs.com/star250/archive/2008/12/22/1359810.html
如何使用代码动态设置水晶报表中的文本,字段等对象呢?
//VB
首先,你必须要声明一个OBJECT变量(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="条件";