插入数据表VB.NET的标头

Question

我的代码vb需要你的帮助 事实上，我创建了一个新的数据表，我想从另一个数据表中复制标题 这是我的代码

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