Creare un datatable random

    '''

    ''' funzione che Randomizza un datatable specifico
    '''

    '''
    '''
    '''
    Public Shared Function RandomDatatable(ByVal dt As DataTable) As DataTable

        dt.Columns.Add(New DataColumn("RandNum", GetType(Integer)))
        Dim i As Integer
        Dim rndNum As New Random()
        For i = 0 To dt.Rows.Count - 1
            dt.Rows(i)("RandNum") = rndNum.Next(10000)
        Next i
        Dim myDataView As DataView = dt.DefaultView
        myDataView.Sort = "RandNum"

        Return myDataView.ToTable()

    End Function