<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Export ListBox Item to DataTable, useful to session or re-binding data.</Title>
      <Shortcut>ExportListBoxItemtoDataTable,usefultosessionorre-bindingdata.</Shortcut>
      <Description>Export ListBox Item to DataTable, useful to session or re-binding data. [VB.NET]</Description>
      <Author>Duong Tuan Anh</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=ab7cb8f4-6c73-4795-8aad-fbac106428d3</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[    Private Function saveToDataTable(ByVal lbxListBox As ListBox, ByVal TableName As String, ByVal ValueField As String, ByVal TextField As String) As Data.DataTable
        Dim dtTable As New Data.DataTable(TableName)
        Dim dcId As Data.DataColumn = New Data.DataColumn(ValueField, Type.GetType("System.Int32"))
        Dim dcName As Data.DataColumn = New Data.DataColumn(TextField, Type.GetType("System.String"))
        dtTable.Columns.Add(dcId)
        dtTable.Columns.Add(dcName)
        Dim drNewRow As Data.DataRow
        For Each liListItem As ListItem In lbxListBox.Items
            drNewRow = dtTable.NewRow
            drNewRow(dcId) = liListItem.Value
            drNewRow(dcName) = liListItem.Text
            dtTable.Rows.Add(drNewRow)
        Next
        Return dtTable
    End Function]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>