Autore: Vito Arconzo

Questa utilissima funzione permette la conversione di una stringa contenente valori separati da un carattere in  DataTable.

    Public Function StringToTable(ByVal value As String, ByVal delimiter As Char) As DataTable
        Dim table As DataTable = New DataTable
        table.Rows.Clear()
        table.Columns.Clear()
        table.Columns.Add("Value", GetType(String))

        If ((Not value Is Nothing) AndAlso (value.Length > 0)) Then
            Dim text1 As String
            For Each text1 In value.Split(New Char() {delimiter})
                Dim objArray1 As Object() = New Object() {text1}
                table.Rows.Add(objArray1)
            Next
        End If

        table.AcceptChanges()
        table = Nothing
        Return table
    End Function