如何使用List(Of t)填充DataTable或将List(Of t)转换为DataTable？

Imports System.Data
Imports System.Data.DataSetExtensions

Module Module1
    Sub Main()
        Dim list As List(Of Person) = New List(Of Person)
        list.Add(New Person With {.Name = "John", .Age = 30})
        list.Add(New Person With {.Name = "Jane", .Age = 25})

        Dim table As DataTable = ToDataTable(list)

        Console.WriteLine("Name\tAge")
        For Each row As DataRow In table.Rows
            Console.WriteLine("{0}\t{1}", row("Name"), row("Age"))
        Next
    End Sub

    Public Function ToDataTable(Of T)(ByVal list As List(Of T)) As DataTable
        Dim table As DataTable = New DataTable()
        Dim properties As PropertyInfo() = GetType(T).GetProperties()

        For Each propertyInfo As PropertyInfo In properties
            table.Columns.Add(propertyInfo.Name, propertyInfo.PropertyType)
        Next

        For Each item As T In list
            Dim row As DataRow = table.NewRow()
            For Each propertyInfo As PropertyInfo In properties
                row(propertyInfo.Name) = propertyInfo.GetValue(item)
            Next
            table.Rows.Add(row)
        Next

        Return table
    End Function
End Module

Public Class Person
    Public Property Name As String
    Public Property Age As Integer
End Class