copy maken van table1 naar table2

[nojat]

Hoe maak ik een copy van dt1 naar dt2 en dan alleen kolumn 3

ik dacht zelfs dt2=dt1.copy(3)

maar dit werkt niet.

hoe dan wel ?????

 

[Ginanity]

sub copyTable(Byval dt as datattable)

dim _dt as new datatable()
_dt = dt

end sub

zoiets ongeveer vermoed ik, maar ik heb het niet getest, dus kan onjuist zijn.

succes

 

[nojat]

ik zal het proberen alvast bedankt
Nojat

sub copyTable(Byval dt as datattable)

dim _dt as new datatable()
_dt.Columns(3) = dt.Columns(3)

end sub

zoiets ongeveer vermoed ik, maar ik heb het niet getest, dus kan onjuist zijn.

succes

 

[nojat]

helaas dit werkt niet
heeft iemand anders wel de oplossing ???

ik zal het proberen alvast bedankt
Nojat

 

[Ginanity]

Wat werkt niet, waarom werkt het niet (compilerfouten ?) en hoe heb je die fucntie geintegreerd?

 

[rolandwardenaar]

Hieronder wat verschillende voorbeelden van soorten bewerkingen mbt tabellen kolommen en rijen:


imports System.Data

Module Program
Sub Main()

'maak tabel1 met vier kolommen:
Dim tabel1 As DataTable = new DataTable("tabel1")

Dim col As DataColumn = New DataColumn("kolom1")
tabel1.Columns.Add(col)
col = New DataColumn("kolom2")
tabel1.Columns.Add(col)
col = New DataColumn("kolom3")
tabel1.Columns.Add(col)
col = New DataColumn("kolom4")
tabel1.Columns.Add(col)

' vul een rij met waarden
Dim rij As DataRow = tabel1.NewRow()
rij("kolom1") = "waarde1"
rij("kolom2") = "waarde2"
rij("kolom3") = "waarde3"
rij("kolom4") = "waarde4"

' rij toevoegen aan de tabel1:
tabel1.Rows.Add(rij)

' een tabel2 maken, waardbij de structuur en de data gelijk is aan die van tabel1 :
Dim tabel2 As DataTable = tabel1.Copy()

' een tabel3 maken, waarbij de structuur gelijk is aan tabel1, maar alleen de waarden van kolom 3 heeft:
Dim tabel3 As DataTable = tabel1.Clone()
For Each row As DataRow In tabel1.Rows
Dim newRow As DataRow = tabel3.NewRow()
newRow("kolom3") = row("kolom3")
tabel3.Rows.Add(newRow)
Next

' een tabel4 maken, met een kolom, en die alleen de waarden van kolom 3 heeft:
Dim tabel4 As DataTable = new DataTable("tabel4")
col = New DataColumn("kolom3")
tabel4.Columns.Add(col)
For Each row As DataRow In tabel1.Rows
Dim newRow As DataRow = tabel4.NewRow()
newRow("kolom3") = row("kolom3")
tabel4.Rows.Add(newRow)
Next

Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module