CopyToDataTable

31/01/2010 - 17:33 von Lukas | Report spam
Hallo,

Ich finde immer wieder Beispiele einen Datatable zu füllen mit
copyToDataTable aber leider gibt es das bei mir nicht. Ich verwende VS2008.
mit Bitte um Hilfe
Danke
L.
 

Lesen sie die antworten

#1 Peter Fleischer
31/01/2010 - 21:19 | Warnen spam
"Lukas" schrieb im Newsbeitrag
news:

Ich finde immer wieder Beispiele einen Datatable zu füllen mit
copyToDataTable aber leider gibt es das bei mir nicht. Ich verwende
VS2008.
mit Bitte um Hilfe



CopyToDataTable ist eine Erweiterungsmethode, die auf eine LINQ-Abfrage
angewandt werden kann, die als Ergebnis DataRow-Objekte aus einer DataTable
liefert. Hier mal eine Demo:

Public Class Form1

Private WithEvents btn As New Button With {.Dock = DockStyle.Top, _
.Text = "Laden"}
Private dgv As New DataGridView With {.Dock = DockStyle.Fill}

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Me.Controls.AddRange(New Control() {dgv, btn})
End Sub

Private Sub btn_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles btn.Click
Dim dt = Testdata.Getdata
Dim res = (From r In dt.AsEnumerable).CopyToDataTable
dgv.DataSource = New BindingSource(dt, "")
End Sub

End Class



Friend Class Testdata

Public Shared Function Getdata() As DataTable
Dim staedte() As String = New String() _
{"Berlin", "Dublin", "München", "New York", "Zürich"}
Dim dt As New DataTable("Tab1")
With dt
With .Columns
With .Add("ID", GetType(Integer))
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
End With
.Add("Stadt", GetType(String))
End With
For Each stadt In staedte
Dim r As DataRow = .NewRow
r.Item("Stadt") = stadt
.Rows.Add(r)
Next
End With
Return dt
End Function

End Class


Viele Gruesse

Peter

Ähnliche fragen