插入頁眉

Question

我需要你的幫助我的代碼VB 事實上，我創建了一個新的DataTable和我想的頭從另一個數據表 複製在這裏是我的代碼

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

如果你只是想「複製」一個DataTable的架構（所以列和約束），而它的內容（DataRows），可以使用DataTable.Clone：

Dim clonedTable As DataTable = originalTable.Clone() 

如果你也想複製DataRows你必須使用DataTable.Copy。

Answer 2

試試這個

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