For Each Col as DataColumn In datarow.Table.Columns
debug.print( Col.ColumnName )
Next
row2.ItemArray = row1.ItemArray
For Each clm As DataColumn In dt.Columns
Dim clmName As String = clm.ColumnName
Next
Author:yamamoto
シェルとかperlとか。忘れっぽいのでメモ代わり。