Surely it does not work, as .Contains wants String as argument
That's exatly the problem, so use the strongly typed Field
extension
method to cast it to it's correct type and Enumerable.Any
to look if at least one string is contained in this Name
:
Dim strings = From row In PlTable Select row.Field(Of String)(0)
Dim found = From row In table.AsEnumerable
Where strings.Any(Function(s) row.Field(Of String)("Name").Contains(s))
Select row
Return found.CopyToDataTable()