...

Scripts to group chart data:

By Flock

Private Sub chart1_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
Dim xrc As XRChart = CType(sender,XRChart)
Dim filter_value As String = GetCurrentColumnValue("General_GroupCode")
' System.Windows.Forms.MessageBox.Show(filter_value)
if Not String.IsNullOrEmpty(filter_value) then
For each srs as Series in xrc.Series
srs.DataFilters.Clear
srs.DataFilters.Add(New DataFilter("LayerReportData.General_GroupCode", "System.String", _
DataFilterCondition.Equal, filter_value))
Next
end if

End Sub