or
Public
Shared
Function
VoorschrijverLabels(
ByVal
selection
As
Object
(),
ByVal
reportItem
As
Object
)
As
String
Dim
labels
As
String
=
String
.Empty
Try
Dim
processingReport
As
Telerik.Reporting.Processing.Report = TryCast(reportItem, Telerik.Reporting.Processing.ReportItemBase).Report
Dim
report
As
rptDagstaat = TryCast(processingReport.ItemDefinition, rptDagstaat)
Dim
da
As
New
SqlDataAdapter(report.dsVoorschrijvers.SelectCommand, report.dsVoorschrijvers.ConnectionString)
Dim
ds
As
New
DataSet
da.Fill(ds)
For
Each
row
As
DataRow
In
ds.Tables(0).Rows
If
labels.Length > 0
Then
labels +=
"; "
If
selection
Is
Nothing
OrElse
selection.Contains(row(
"VoorschrijverID"
).ToString)
Then
labels += row(
"Voorschrijver"
)
End
If
Next
Catch
ex
As
Exception
End
Try
Return
labels
End
Function
chart1.DataSource = linqToSQL.TableItems.GroupBy(g => g.ColumnInt)
.Select(s =>
new
Item { count = s.Count(), name = s.First().Name })
.OrderByDescending(o => o.count).Take(10);
class
Item
{
public
int
count {
get
;
set
; }
public
string
name {
get
;
set
; }
}
Here is some of the code I use to make the connecting-line appear but nothing helps:
serie.Appearance.LabelAppearance.Visible = true;
serie.Appearance.LabelAppearance.LabelConnectorStyle.Visible = true;
serie.Appearance.ShowLabels = true;
serie.Appearance.LabelAppearance.LabelConnectorStyle.PenStyle = System.Drawing.Drawing2D.DashStyle.Solid;
serie.Appearance.LabelAppearance.LabelConnectorStyle.Width = 2;