Forums Neueste Beiträge
 

Ich rall es nich...Chart-Control

25/02/2008 - 11:32 von Georg Heimdörfer | Report spam
Ich versuche nun schon seit einigen Stunden etwas auf die Beine zu stellen.

Gefordert ist ein einfaches 2D Chart.

X-Achse = Körpergewicht (0-80 kg)
Y-Achse = Messwert (0-40mm)

Meine Datenreihe sieht so aus:

5kg,5mm
10kg,5mm
15kg,5mm
[...]
80kg3,2mm


Ich hole die Daten aus der DB raus, was auch klappt::

Dim Values() As Single
Dim i As Integer
Dim n As Integer

rsChart2.MoveLast
n = rsChart2.RecordCount
Chart.RowCount = n

ReDim Values(1 To n, 1 To 1)

rsChart2.MoveFirst
For i = 1 To n

Values(i, 1) = rsChart2("Value")
rsChart2.MoveNext
Next i

Chart.ChartData = Values


Allerdings wird die Skalierung der X-Achse nicht übernommen.
Dort stehen nur "Z1Z18" für die Zahlreihen, aber es sollen dort
ja die [kg] Angaben stehen...



Hat jemand eine Idee oder ein Beispiel?
 

Lesen sie die antworten

#1 W. Wolf
25/02/2008 - 15:54 | Warnen spam
Hallo Georg
"Georg Heimdörfer" schrieb
[...]


Allerdings wird die Skalierung der X-Achse nicht übernommen.
Dort stehen nur "Z1Z18" für die Zahlreihen, aber es sollen dort
ja die [kg] Angaben stehen...





schlage mal unter .RowLabel nach!

Gruß
W. Wolf

Ähnliche fragen