<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Copy a datatable to a new datatable</Title>
      <Shortcut>Copyadatatabletoanewdatatable</Shortcut>
      <Description>Copy a datatable to a new datatable [VB.NET]</Description>
      <Author>Janus Hansen</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=064ec2d0-f647-4290-8c0b-d968439e5401</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[Public Function CopyTable(ByVal DT As DataTable) As DataTable
    Try 
      Dim DTn As DataTable
      Dim i As Integer 

      If DTn Is Nothing Then
        DTn = New DataTable
        DTn = DT.Clone
        DTn.TableName = DT.TableName
      End If
 
      For i = 0 To DT.Rows.Count - 1
        DTn.ImportRow(DT.Rows(i))
      Next i
 
      Return DTn
    Catch ex As System.Exception
      Return Nothing
    End Try
  End Function
]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>