月: 2010年11月

    Sub dtコピー()

        Dim dt As New DataTable
        dt.Columns.Add(“ID”, GetType(Integer))
        dt.Columns.Add(“名称”, GetType(String))

        dt.Rows.Add(0, “A”)
        dt.Rows.Add(1, “B”)
        dt.Rows.Add(2, “C”)

        ‘DataTable全体(構造と中身のデーター)をコピー
        Dim dt1 As DataTable
        dt1 = dt.Copy

       ‘DataTableの構造のみコピー
        Dim dt2 As DataTable
        dt2 = dt.Clone
        ‘1行ずつデーターをコピー
        For i As Integer = 0 To dt.Rows.Count – 1
            dt2.ImportRow(dt.Rows(i))
        Next

    End Sub

参考：
DataTable.Copy メソッド (MSDN)
DataTable.Clone メソッド (MSDN)
Visual Basic .NET を使用して DataTable 間で DataRow をコピーする方法 (MSDN)