Dim x As New DataTable()
Dim col1 As New DataColumn("email")
x.Columns.Add(col1)
x.Rows.Add("[email protected]")
x.Rows.Add("[email protected]")
x.Rows.Add("[email protected]")
x.Rows.Add("[email protected]")
Dim query = (From q In (From c In odt.AsEnumerable() _
Where c!Email IsNot DBNull.Value _
Order By c!Email Ascending _
Select New With {.mail = c("Email")}) _
Select q.mail Distinct)
|