请问水晶报表8.0中如何动态设置图表的数据源？谢谢。

[zhenghongan]

在使用水晶报表8.0时，利用图表功能做了个饼状图，但要想产生图形必须在设计时固定设置好数据库、表、和条件字段。现实应用中需要动态改变数据库、表、和字段，请问如何动态设置图表的数据源？(最好给段代码)谢谢。

[ywpg]

关注

[Cocoky]

up

[Colin_Qin]

' Declare the other variables

dim crxGraphObject As CRAXDRT.GraphObject

Set crxGraphObject = crxReport.Sections("RH").AddGraphObject(crDetailGraph, 0, 0)
' Add a graph object to the report

crxGraphObject.ConditionFields.Add "{@CustomerID}"
' Add the condition field as the CustomerID formula

crxGraphObject.SummaryFields.Add "{@SumOrderAmount}"
' Add the summary field as the SumOrderAmount formula

crxGraphObject.GraphType = crFaked3DStackedBarGraph
' Set the graph type to be a 3d Stacked Bar Graph

crxGraphObject.Width = crxReport.Sections("PH").Width
' Set the width of the graph to be the same as the page header

crxGraphObject.Height = 5000
' Set the height of the graph to be larger

[zhenghongan]

gz

[zhenghongan]

谢谢，qyjzhou(琴雨健洲)
还有个问题请教：
我执行
Set crxGraphObject = crxReport.Sections("RH").AddGraphObject(crDetailGraph, 0, 0)
语句时提示“未启用创建功能”
请问这是为什么？谢谢。

[Cocoky]

因为你的cd key的权限不够
我也是同样的问题
要花钱买

[Cocoky]

ftp://194.85.15.1/pub/seagate/cr85dev/cr2.zip
这个是8.5版的设计器 205M
Crystal Reports 8.5 Key: A6A50-8900008-ZE1007S , Serial: 1231467890 或
2147483647
没有任何限制

[Colin_Qin]

用API功能，要破解。你把 C:\Program Files\Seagate Software\Report Designer Component\craxdrt.dll 用ULtraEdit-32打开，查找 B8 18 58 31 10 E8 F8 3D 修改为：
B8 01 00 00 00 C2 04 00

[zhuixing]

ULtraEdit-32 是什么程序啊

[Colin_Qin]

你上网查找一下就知道了