Question

我想制作一个包含几个系列的图表。每个系列都属于一个特定的人。

首先，我在Access中读出了我桌子中不同人的数量：

connection.Open()
    command.CommandText = "SELECT kontoverlauf_kunden_id FROM kontoverlauf GROUP BY kontoverlauf_kunden_id"

    Dim kunden_id_array As New ArrayList()

    reader = command.ExecuteReader()

    Do While reader.Read()
        kunden_id_array.Add(reader("kontoverlauf_kunden_id").ToString())
    Loop
    reader.Close()
    connection.Close()

现在我有不同的人（他们的身份证）。其次，我将我需要的系列添加到图表中：

For counter As Integer = 0 To kunden_id_array.Count - 1
        chartKontoverlauf.Series.Add(New Series("Konto [" & kunden_id_array.Item(counter) & "]"))
        chartKontoverlauf.Series(counter).ChartType = SeriesChartType.Line
        chartKontoverlauf.Series(counter).Color = Color.Red
        chartKontoverlauf.Series(counter).BorderWidth = 3
Next

现在我只需填写我需要的分数，但这有点棘手。我已经创建了一个每次都会调用的函数，它会读出特定人的值（金钱和时间）。这是第一个功能：

Function DatenAuslesen(ByVal kunden_id As Integer) As ListViewItem
Dim lstViewItem As New ListViewItem
Try
    connection.Open()
    command.CommandText = "SELECT * FROM kontoverlauf WHERE kontoverlauf_kunden_id = " & kunden_id
    reader = command.ExecuteReader()

    Do While reader.Read()
        lstViewItem.SubItems.Add(reader("kontoverlauf_wert").ToString())
        lstViewItem.SubItems.Add(reader("kontoverlauf_datum").ToString())
    Loop
    reader.Close()
    connection.Close()
Catch ex As Exception
    MsgBox(ex.Message)
End Try
connection.Close()
Return lstViewItem
End Function

现在要加点，我写了这个小东西：

For counter As Integer = 0 To kunden_id_array.Count - 1
        For counter_2 As Integer = 0 To DatenAuslesen(kunden_id_array.Item(counter)).ListView.Items.Count - 1
            chartKontoverlauf.Series(counter).Points.AddXY(DatenAuslesen(kunden_id_array.Item(counter)).ListView.Items(counter_2).SubItems(0).Text, DatenAuslesen(kunden_id_array.Item(counter)).ListView.Items(counter_2).SubItems(1).Text)
        Next
    Next

问题在于它只是给了我一个我需要的值，而不是全部。我无法正确访问alle值。我还不确定它是否是最好的变量。我需要一个ListViewItems数组来添加所有这些，但我还没有找到如何做到这一点。

也许有人有想法？谢谢！

将ListViewItem的数组返回给Sub

0 个答案: