Hi Andrew

Many thanks for the speedy response. I have now been able to create both stacked column and pie charts in code from a data table of variable length.

I have one remaining issue in that I cannot seem to get the legend for the pie chart working. My code is as follows:

Private Sub MakePieChart()

Dim errs As String = ""
Dim dts As DataTable = sqld.GetDataTable(strSQL(chartType), errs)
If dts.Rows.Count = 0 Then Exit Sub
Dim srs(dts.Rows.Count - 1) As String

Dim dt As New DataTable()
dt.Columns.Add(New DataColumn("Label", GetType(String)))
dt.Columns.Add(New DataColumn("Value", GetType(Integer)))
For r As Integer = 0 To dts.Rows.Count - 1
Dim row As DataRow = dt.NewRow()
row("Label") = dts.Rows(r).Item(0).ToString
row("Value") = dts.Rows(r).Item(1)
dt.Rows.Add(row)
Next

Dim DataChart As New XamPieChart()
AddHandler DataChart.MouseDown, AddressOf ShowHideLegend
DataChart.Margin = New Thickness(5)
DataChart.DataContext = dt

DataChart.ItemsSource = dt.DefaultView
DataChart.LabelMemberPath = "Label"
DataChart.ValueMemberPath = "Value"

Dim legend As New Legend() With {
.Content = "My Pie Chart",
.Margin = New Thickness(20),
.VerticalAlignment = VerticalAlignment.Top,
.HorizontalAlignment = HorizontalAlignment.Right
}

DataChart.Legend = legend

Me.LayoutRoot.Children.Add(DataChart)

Me.LayoutRoot.Children.Add(legend)

End Sub

Any ideas?

Thanks again

Andrew

Hi Andrew

Oh so easy!

Many thanks again for your excellent support.

Regards

Andrew