Imports System

Imports System.Xml

Imports System.Linq

Imports System.Data

Imports System.Data.DataSetExtensions 

Public Module ModuleEjemplo

    Public Sub Main()

        Dim dt = CrearTablaDeEjemplo()

        'Sustituyo toda la columna "Tildado" con el valor true

        Dim query = dt.AsEnumerable() _

                    .Select(Function(row) 

                                row("Tildado") = true

                                Return row

                            End Function)

        Dim nuevaDt = query.CopyToDataTable()

        Imprimir(nuevaDt)

    End Sub

    Public Sub Imprimir(dt As DataTable)

        Console.WriteLine("Numero Tildado")

        Console.WriteLine()

​

        For Each row In dt.Rows

            Console.WriteLine("{0,-8} {1}",row("Numero"),row("Tildado"))

        Next

    End Sub

    Public Function CrearTablaDeEjemplo() As DataTable

        Dim dt = new DataTable()

        dt.Columns.Add("Numero", GetType(Integer))

        dt.Columns.Add("Tildado", GetType(Boolean))

        For numero = 1 To 7

        dt.Rows.Add(numero)

        Next

        Return dt

    End Function

End Module