如何使用代码动态设置水晶报表中的文本,字段等对象呢?
//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="条件";
转载于:https://blog.51cto.com/miya2010/1307327