Posted 14 July 2023, 11:23 am EST - Updated 14 July 2023, 11:29 am EST
Hello,
I met a small problem, when i use an existing code sample. The problem is, i do not get the text shon for the AxisX, here is the code and the picture:
Dim ds As New DataSet Dim dt As New DataTable Dim da As Odbc.OdbcDataAdapter Dim SqlStr As String = "SELECT QRY_TA_Stunden_Pro_Kostenstelle.TACodeKST, Sum(QRY_TA_Stunden_Pro_Kostenstelle.TStunden) AS STStunden FROM QRY_TA_Stunden_Pro_Kostenstelle " & "Where Year(QRY_TA_Stunden_Pro_Kostenstelle.SKJahr) = '" & 2023 & "' " & "GROUP BY QRY_TA_Stunden_Pro_Kostenstelle.TACodeKST " & "ORDER BY QRY_TA_Stunden_Pro_Kostenstelle.TACodeKST" da = New Odbc.OdbcDataAdapter(SqlStr, connectionString1) da.Fill(dt) FlexChart1.DataSource = dt FlexChart1.BeginUpdate() FlexChart1.ChartType = C1.Chart.ChartType.Column FlexChart1.Series.Clear() FlexChart1.Series.Add(New Series() With {.Name = "Stunden", .Binding = "STStunden"}) 'AxisX FlexChart1.AxisX.Labels.Equals("{TACodeKST}") FlexChart1.AxisX.Labels = True FlexChart1.AxisX.LabelAngle = -40 'Daten für die AxisX Säule FlexChart1.DataLabel.Content = "{STStunden}" FlexChart1.DataLabel.Position = C1.Chart.LabelPosition.Top 'AxisY FlexChart1.AxisY.MajorUnit = 50 FlexChart1.AxisY.Min = 0 FlexChart1.AxisY.Max = 900 'Specify titles for FlexChart header and axes FlexChart1.Header.Content = "Stunden pro Kostenstellen" FlexChart1.EndUpdate()
I guess for the expert is easier to get it.
Best regards & Thanks
Said