ASP.NET

Dim data = myDataTable.AsEnumerable().GroupBy(Function (r) New With
    { 
        Key .ID = r.Field(Of Integer)("ID"), 
        Key .Code = r.Field(Of Integer)("Code") 
    }, 
    Function (key, rows) New With
    { 
        Key .ID = key.ID, 
        Key .Code = key.Code, 
        .Dates = rows.Select(Function (r) r.Field(Of DateTime?)("Effective Date")) _
            .OrderByDescending(Function (d) d).Take(3).ToList() 
    })


Dim result As New DataTable()
result.Columns.Add("ID", GetType(Integer))
result.Columns.Add("Code", GetType(Integer))
result.Columns.Add("Effective Date 1", GetType(DateTime))
result.Columns.Add("Effective Date 2", GetType(DateTime))
result.Columns.Add("Effective Date 3", GetType(DateTime))

For Each item in data
    result.Rows.Add(item.ID, item.Code,
        item.Dates.ElementAtOrDefault(0),
        item.Dates.ElementAtOrDefault(1),
        item.Dates.ElementAtOrDefault(2))
Next

Dim data = myDataTable.AsEnumerable().GroupBy(Function(r) New With {Key .ID = r.Field(Of Integer)("ID"), Key .Code = r.Field(Of Integer)("Code")},

For Each item In data

result.Rows.Add .... item.EENAML.. etc.

Dim data = myDataTable.AsEnumerable().GroupBy(Function(r) New With {Key .EEGRP = r.Field(Of String)("EEGRP"), Key .EESSN = r.Field(Of String)("EID")},
                     Function(key, rows) New With
                     {
                         Key .EEGRP = key.EEGRP,
                         Key .ESSN = key.EID,
                     .Dates = rows.Select(Function(r) r.Field(Of DateTime?)("DEIBCY") & ("DIIBYR") & ("D.DIIBMT") & ("DEIBDY")) _
                         .OrderByDescending(Function(d) d).Take(3).ToList()
                     })
 
                     'Create new table with original table schema
                     Dim result As New DataTable
                     result = myDataTable.Clone()
                    'Create new  row
                     For Each item In data
                         result.Rows.Add(item.EEGRP,item.EID, item.EENAML,item.EENAMF,item.EENAMM,item.EEADD1,item.EEADD2,,,, _

Imports System.Data.DataSetExtensions
Module ModuleMain...

For Each item In data
                          result.Rows.Add(item.EEGRP,item.ESSN, item.EENAML,item.EENAMF,item.EENAMM,item.EEADD1,item.EEADD2,...._

<p><asp:Label ID="Email" runat="server" Text="Email"></asp:Label>
<asp:TextBox ID="your_email" runat="server" ></asp:TextBox>
<asp:ValidationSummary ID="ValidationSummary1" runat="server" DisplayMode="SingleParagraph" />
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ErrorMessage="*" ControlToValidate="your_email" Display="None"

ForeColor="#FF6666"></asp:RequiredFieldValidator> 
<asp:RegularExpressionValidator ID="RegularExpressionValidator2" runat="server" Display="None" ErrorMessage="Please complete the Email field"
ControlToValidate="your_email"
ValidationExpression="\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"></asp:RegularExpressionValidator></p>

ErrorMessage="*"