<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Add Rows To Table</Title>
      <Shortcut>AddRowsToTable</Shortcut>
      <Description>Add Rows To Table [VB.NET]</Description>
      <Author>Kuntal Shah</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=4081ba99-3331-4245-a990-66f37e15b5eb</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[Public Shared Sub AddRowsToTable(ByVal dr() As DataRow, ByVal dt As DataTable)
        Dim i As Integer
        Try
            For i = 0 To dr.Length - 1
                dt.Rows.Add(dr(i).ItemArray)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>