VB水晶报表图表程序控制问题

[alan352]

请问一下各位，在VB的水晶报表上，可以用程序控制图表的横轴和纵轴要显示的字段吗？可以给点例子提示一下？
谢谢各位了～～

[caofusheng]

可以的。通过Formulas传进去就好了。
如
CrystalReport1.Formulas(1) = "time = '" & Format(Time, "hh:mm:ss") & "'"

time 是你在设计报表时建的Formulas字段名，Format(Time, "hh:mm:ss") 是你要传进去的值

[alan352]

OK,谢谢阿泰啦

[阿泰]

使用公式方式，动态指定统计字段及轴标识

模板制作视频，分为两个部分。


http://www.cnblogs.com/Files/babyt/CR20080122Dychart.rar

主要代码如下：

Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report

Private Sub Form_Load()
  
    Set crReport = crApp.OpenReport(App.Path & "\a.rpt", 1)
    
    '  注意参数的顺序（是按照你新建的顺序的，与显示顺序可能不一致），如果你拿不准，弹出来看看
    '
    '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 = "{product.Product Class}"
    crReport.FormulaFields(2).Text = "{product.Product ID}"
    
    '设置轴描述，题头
    crReport.FormulaFields(3).Text = """我的横轴啊横轴"""
    crReport.FormulaFields(4).Text = """我的纵轴啊纵轴"""
    crReport.FormulaFields(5).Text = """标题啊标题"""
    

    CrystalActiveXReportViewer1.ReportSource = crReport
    CrystalActiveXReportViewer1.ViewReport
End Sub

[阿泰]

特别注意的是这个地方

crReport.FormulaFields(3).Text = """我的横轴啊横轴"""

注意传入的值为 "我的横轴啊横轴"，而不是 我的横轴啊横轴 ，所以要多一层引号

[alan352]

阿泰，看了你的教程后我已经基本明白了，谢谢你们的指点！

[alan352]

呵呵，好的，明白！我马上给你们分，再次感谢！

[qiananzong]

我调试了看下，发现crReport.FormulaFields(1).Text = "{product.Product Class}"这里提示下标越界是怎么回事啊

[阿泰]

标记一下，回头来回

[alan352]

caofusheng ，没看懂你甚么意思？我要的是图表控制，不是报表控制哦。
阿泰，等你帮我看看了，先谢啦！

[caofusheng]

图表控制也一样

[alan352]

但是你给我的那段代码根本没涉及到chart对象啊

[阿泰]

呵呵，其实我的实现方法也是一样的，只是可能你之前没遇到过，所以没概念：）
午饭后我写个教程给你吧