DataTable und SortedList

24/05/2010 - 21:49 von Alexander Richter | Report spam
Hallo,
wie kann ich alle Daten einer DataTable komfortabel in eine SortedList
kopieren?


Alexander
 

Lesen sie die antworten

#1 Peter Fleischer
31/05/2010 - 08:01 | Warnen spam
"Alexander Richter" schrieb im Newsbeitrag
news:uGyy1o3#

wie kann ich alle Daten einer DataTable komfortabel in eine SortedList
kopieren?



Hi Alexander,
eine SortedList enthàlt einen Schlüssel und ein Objekt. Zuerst sollte
geklàrt werden, woher der Schlüssel kommt und welches Objekt zu speichern
ist. Zum Füllen der SortedList ist eine einfache Programmschleife
ausrecihend. Nachfolgend ein Beispiel, in dem als Schlüssel der Wert einer
ID-Spalte und als Objekt das DataRow-objekt genutzt wird.

Module Module1

Sub Main()
'
' Tabelle mit Demo-Daten laden
Dim dt = GetDataTable()
'
' SortedList füllen
Dim sl As New SortedList(Of Object, DataRow)
For Each r In From itm In dt.AsEnumerable
sl.Add(r!id, r)
Next
'
' Demo-Anzeige
For Each itm In sl
Console.WriteLine("Key: {0}, Col1: {1}", itm.Key, itm.Value!col1)
Next
'
' Anzeige anhalten
Console.ReadKey()
End Sub

Private Function GetDataTable() As DataTable
Dim dt As New DataTable
With dt
With .Columns
.Add("ID", GetType(Integer))
.Add("col1", GetType(String))
End With
For i = 1 To 10
Dim r = .NewRow
r!ID = i
r!col1 = "Zeile " & i.ToString
.Rows.Add(r)
Next
End With
Return dt
End Function

End Module

Viele Gruesse

Peter

Ähnliche fragen