用公式实现动态设置图表的轴数据项
来源:互联网 发布:mysql初学者书籍推荐 编辑:程序博客网 时间:2024/06/04 17:59
本文适用于单表中有多类统计项目的情况,同时也适用制作程序的公用模块。
本文仅使用了程序与水晶报表的公式参数传递,而未使用动态创建功能
传统的图表制作中,我们都是先选择要进行图表显示的字段,在这里,我们的思路是以公式代替实际字段代替报表
用不同的字段填充公式,从而达到动态设置的目的
在这里要说明一下,纵轴上的汇总字段x2,如果要汇总的话,请将该公式默认为0
此时的报表呈现如下,为了显示的美观,我们把各默认标题置为空,用另外的3个公式来实现这几个项目
将x轴标题和报表标题公式拉到与图表同宽,字体设置未居中
将y轴标题公式纵向拉到与图表同高,字体居中,宽度拉到一个字宽,且设置属性为 可扩大
保存之~~
然后切换到程序中,以VB6为例
本文仅使用了程序与水晶报表的公式参数传递,而未使用动态创建功能
传统的图表制作中,我们都是先选择要进行图表显示的字段,在这里,我们的思路是以公式代替实际字段代替报表
用不同的字段填充公式,从而达到动态设置的目的
在这里要说明一下,纵轴上的汇总字段x2,如果要汇总的话,请将该公式默认为0
此时的报表呈现如下,为了显示的美观,我们把各默认标题置为空,用另外的3个公式来实现这几个项目
将x轴标题和报表标题公式拉到与图表同宽,字体设置未居中
将y轴标题公式纵向拉到与图表同高,字体居中,宽度拉到一个字宽,且设置属性为 可扩大
保存之~~
然后切换到程序中,以VB6为例
Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As CRAXDRT.Report
Private Sub Form_Load()
Set crReport = crApp.OpenReport(App.Path & "/report1.rpt")
' 注意参数的顺序(是按照你新建的顺序的,与显示顺序可能不一致),如果你拿不准,弹出来看看
'
'MsgBox crReport.FormulaFields(1).Name
'MsgBox crReport.FormulaFields(2).Name
'MsgBox crReport.FormulaFields(3).Name
'MsgBox crReport.FormulaFields(4).Name
'MsgBox crReport.FormulaFields(5).Name
' 动态指定两个轴的字段(表名.字段)
crReport.FormulaFields(1).Text = "{产品.产品类别}"
crReport.FormulaFields(2).Text = "{产品.产品 ID}"
'设置轴描述,题头,注意!传入的值必须以双引号包起来
crReport.FormulaFields(3).Text = """我的横轴啊横轴"""
crReport.FormulaFields(4).Text = """我的纵轴啊纵轴"""
crReport.FormulaFields(5).Text = """标题啊标题"""
CRViewer91.ReportSource = crReport
CRViewer91.ViewReport
End Sub
Private crApp As New CRAXDRT.Application
Private crReport As CRAXDRT.Report
Private Sub Form_Load()
Set crReport = crApp.OpenReport(App.Path & "/report1.rpt")
' 注意参数的顺序(是按照你新建的顺序的,与显示顺序可能不一致),如果你拿不准,弹出来看看
'
'MsgBox crReport.FormulaFields(1).Name
'MsgBox crReport.FormulaFields(2).Name
'MsgBox crReport.FormulaFields(3).Name
'MsgBox crReport.FormulaFields(4).Name
'MsgBox crReport.FormulaFields(5).Name
' 动态指定两个轴的字段(表名.字段)
crReport.FormulaFields(1).Text = "{产品.产品类别}"
crReport.FormulaFields(2).Text = "{产品.产品 ID}"
'设置轴描述,题头,注意!传入的值必须以双引号包起来
crReport.FormulaFields(3).Text = """我的横轴啊横轴"""
crReport.FormulaFields(4).Text = """我的纵轴啊纵轴"""
crReport.FormulaFields(5).Text = """标题啊标题"""
CRViewer91.ReportSource = crReport
CRViewer91.ViewReport
End Sub
运行之,效果如下
特别说明:
crReport.FormulaFields(3).Text = """我的横轴啊横轴"""
crReport.FormulaFields(4).Text = """我的纵轴啊纵轴"""
crReport.FormulaFields(5).Text = """标题啊标题"""
注意!传入报表的公式应为 "我的横轴啊横轴" ,而不是 我的横轴啊横轴 。
报表制作视频可在此处下载:http://www.cnblogs.com/Files/babyt/CR20080122Dychart.rar
- 用公式实现动态设置图表的轴数据项
- 用公式实现动态设置图表的轴数据项
- 用Highcharts实现动态曲线图表的关键设置
- 动态图表的实现问题
- Excel实现数据项校验的功能---VBA的编写以及数据有效性的设置
- 毕业设计 动态标注公式的实现
- jqgrid 动态添加数据项
- 用SQL语句实现:更新某列的所有数据项,使得所有的数据项在原来的基础上加个后缀或前缀
- JFreeChart学习(二)-动态生成图表,并设置图表的字体格式,显示样式
- 图表和公式的自动编号
- Android实现动态数据图表
- Android通过iChartJs实现动态图表、报表的显示Demo
- 实现动态图表渐变效果的代码…
- 不一样的课程表,不一样的Excle--用Excle进行设计(61):数据项与数据项
- 巧用动态即时编译实现公式的定义与计算
- 为Excel2010图表设置动态数据源
- flex LineChart 图表动态增删Y轴实现。实现了动态增加但是Y轴删不干净
- Ext图表的动态生成
- AIX 6 资源中心
- 【摘】C语言中auto,register,static,const,volatile的区别
- 初用控件
- ERROR 1130: Host '192.168.1.3' is not allowed to connect to this MySQL
- 读四人组的设计模式是一种释怀
- 用公式实现动态设置图表的轴数据项
- 10个重要的算法C语言实现源代码
- 汶川地震所有网页都编程灰色的代码
- Java TreeSet 应用
- 教程:在 DB2 DWE 中使用 BIRT,第 3 部分:用 BIRT 创建复杂的报告
- 01-CSS样式表的基本语法-20080520
- can't open the link
- 使用 Google Gears 开发离线应用
- c++ builder在调试过程中捕获异常