Insert Header eines Datentabelle VB.NET

Question

ich Ihre Hilfe für meinen Code vb müssen In der Tat, ich erstellt ein neues Datatable, und ich will die Header von einem anderen Datentabelle hier kopieren ist mein Code

Dim name(de.Tables(0).Columns.Count) As String 
    Dim p As Integer = 0 
    For Each column As DataColumn In de.Tables(0).Columns 
     name(p) = column.ColumnName 
     p += 1 
    Next 
    Dim m As Integer = 0 
    For m = 0 To de.Tables(0).Columns.Count - 1 
     dt.Columns(m).ColumnName = name(p) 
    Next 

Answer 1

wenn Sie nur das Schema einer DataTable zu „kopieren“ wollen (so die Spalten und Einschränkungen), ohne es Inhalt (DataRows) können Sie DataTable.Clone verwenden:

Dim clonedTable As DataTable = originalTable.Clone() 

wenn Sie auch diekopieren möchtenmüssen Sie DataTable.Copy verwenden.

Answer 2

Versuchen Sie dieses

Dim dt As New DataTable() 
    Dim name(de.Tables(0).Columns.Count) As String 
    For Each column As DataColumn In de.Tables(0).Columns 
      dt.Columns.Add(New DataColumn(column.ColumnName)) 
     Next