如何在VB.NET中返回IEnumerable数据表

Private Function GetDataTable() As IEnumerable(Of DataRow)
    ' 创建一个数据表
    Dim dataTable As New DataTable()
    
    ' 添加列
    dataTable.Columns.Add("ID", GetType(Integer))
    dataTable.Columns.Add("Name", GetType(String))
    
    ' 添加行数据
    dataTable.Rows.Add(1, "John")
    dataTable.Rows.Add(2, "Jane")
    dataTable.Rows.Add(3, "Mike")
    
    ' 返回数据表的行集合
    Return dataTable.AsEnumerable()
End Function

Sub Main()
    ' 调用函数获取数据表
    Dim dataRows As IEnumerable(Of DataRow) = GetDataTable()
    
    ' 遍历数据表的行
    For Each row As DataRow In dataRows
        ' 获取行数据
        Dim id As Integer = row.Field(Of Integer)("ID")
        Dim name As String = row.Field(Of String)("Name")
        
        ' 打印行数据
        Console.WriteLine("ID: " & id & ", Name: " & name)
    Next
End Sub