1 function FillDataChart(DataURL)
2 {
3 //获得柱状图报表节对象
4 var Chart = Report.ControlByName("Chart1").AsChart;
5
6
7
8 //从网上取XML数据并转存到xmlDom中
9 var xml = Report.ExtractXMLFromURL(DataURL);
10 var xmlDom = CreateXMLDOM();
11 xmlDom.async=false;
12 xmlDom.load(xml);
13
14
15 //将xmlDom中的数据赋值给图表
16 var RowNodes = xmlDom.childNodes[0];
17 var RowCount = RowNodes.childNodes.length;
18 Chart.GroupCount =RowCount;
19 Chart.SeriesCount=RowNodes.childNodes[0].childNodes.length-1+1;
20 //首先将原来数据全部置为0
21 for (SeriesIndex=0; SeriesIndex<Chart.SeriesCount; ++SeriesIndex)
22 for (GroupIndex=0; GroupIndex<Chart.GroupCount; ++GroupIndex)
23 Chart.Value(SeriesIndex, GroupIndex) = 0;
24
25
26 for(i=0; i<RowNodes.childNodes.length; ++i)
27 {
28 Chart.GroupLabel(i)=RowNodes.childNodes[i].childNodes[0].text;
29 }
30 for(i=1; i<RowNodes.childNodes[0].childNodes.length; ++i)
31 {
32 Chart.SeriesLabel(i-1)=RowNodes.childNodes[0].childNodes[i].baseName;
33 }
34 Chart.SeriesLabel(Chart.SeriesCount-1)="毛利";
35 var MaxVal = 0; //找出值中的最大值，以便设定图表的 YAxisMaximum 属性
36 for (i=0; i<RowCount; ++i)
37 {
38 var FieldNodes = RowNodes.childNodes[i];
39
40 for( j=1; j<FieldNodes.childNodes.length; ++j)
41 {
42 var Val=parseInt(FieldNodes.childNodes[j].text);
43 if (MaxVal < Val)
44 MaxVal = Val
45 Chart.Value(j-1,i) = Val;
46 }
47 Chart.Value(Chart.SeriesCount-1,i) = Chart.Value(0,i)- Chart.Value(2,i)- Chart.Value(4,i);
48 }
49 Chart.YAxisMaximum = MaxVal;
50
51 }
