我的代码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
答案 0 :(得分:1)
如果您只想“复制”DataTable
的模式(所以列和约束)没有它的内容(DataRows
),您可以使用DataTable.Clone
:
Dim clonedTable As DataTable = originalTable.Clone()
如果您还要复制DataRows
,则必须使用DataTable.Copy
。
答案 1 :(得分:0)
试试这个
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