插入数据表 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