Grid++报表的 柱状图（二）

此方法适合用于图表和网格明细数据一致时使用

function ProcessBeginScript(Report)
{

    var Chart = Report.ControlByName("Chart1").AsChart;
    var Recordset  = Report.DetailGrid.Recordset;
    
    Chart.GroupCount=Recordset.RecordCount;
    Chart.SeriesCount=Recordset.Fields.Count-1+1;
       //首先将原来数据全部置为0
    for (SeriesIndex=0; SeriesIndex<Chart.SeriesCount; ++SeriesIndex)
        for (GroupIndex=0; GroupIndex<Chart.GroupCount; ++GroupIndex)
            Chart.Value(SeriesIndex, GroupIndex) = 0;
    
    
  
     var Index = 0;
     Chart.SeriesLabel(5)='毛利';
     Recordset.First();
    while (Index < Recordset.RecordCount)
    {
      Chart.GroupLabel(Index)=Recordset.Fields.Item(1).value;
      
       for(i=0; i<Recordset.Fields.Count-1; ++i)
       {
        Chart.SeriesLabel(i)=Recordset.Fields.Item(i+2).Name;
        var Val=Recordset.Fields.Item(i+2).value;
         Chart.Value(i,Index) = Val;  
          Chart.Value(i+1,Index) =Recordset.Fields.Item(2).value-Recordset.Fields.Item(3).value-Recordset.Fields.Item(5).value ;     
       }
            
      ++Index;
      Recordset.Next();
    };
 
}