vb 获取 DataTable 前10列数据

以下是获取 DataTable 前10列数据的 VB 代码：

Dim dt As New DataTable()

' 填充 DataTable（省略代码）

' 创建新的 DataTable，仅包含前10列
Dim dtNew As DataTable = dt.Clone()
For i As Integer = 0 To 9
    dtNew.Columns.Add(dt.Columns(i).ColumnName, dt.Columns(i).DataType)
Next

' 复制数据到新的 DataTable
For Each row As DataRow In dt.Rows
    Dim newRow As DataRow = dtNew.NewRow()
    For i As Integer = 0 To 9
        newRow(i) = row(i)
    Next
    dtNew.Rows.Add(newRow)
Next

' 现在 dtNew 包含了原始 DataTable 中的前10列数据