Datagrid Paging with AutoGenerateCol umns part 2

[moondog]

Just in case anyone else out there is having the same problem of the
page numbers appearing in one column instead of across the row, here's
how to fix the problem courtesy of [e-mail] m from his original
thread of this subject.

Below are the C# and VB.NET code samples of the prerender event of the
datagrid:
C#:

protected void dGrid_PreRender (object sender, EventArgs e)
{
try
{
DataGrid dg = (DataGrid)sende r;
//Fix for numbering being in a left aligned column
//For some reason, the ColumnSpan property is ignored and
not rendered
//unless set using the Attributes
if (dg.AllowPaging == true && dg.AutoGenerate Columns ==
true)
{
//Get the Table
System.Web.UI.W ebControls.Tabl e tab =
(System.Web.UI. WebControls.Tab le)dg.Controls[0];
//Change the Top Pager
if (dg.PagerStyle. Position == PagerPosition.B ottom ||
dg.PagerStyle.P osition == PagerPosition.T opAndBottom)
{
tab.Rows[tab.Rows.Count -
1].Cells[0].Attributes.Add ("colspan",
tab.Rows[1].Cells.Count.To String());
}
//Change the Bottom Pager
if (dg.PagerStyle. Position == PagerPosition.T op ||
dg.PagerStyle.P osition == PagerPosition.T opAndBottom)
{
tab.Rows[0].Cells[0].Attributes.Add ("colspan",
tab.Rows[1].Cells.Count.To String());
}
}
}
catch (Exception ex)
{

}
}

VB.NET:

Private Sub myDatagrid_PreR ender(ByVal sender As Object, ByVal e
As System.EventArg s) Handles myDatagrid.PreR ender
'Fix for page numbers appearing in one column and expanding
it
'making the datagrid look ugly.

Dim dg As DataGrid = sender

If dg.AllowPaging = True And dg.AutoGenerate Columns = True
Then

'Get the Table
Dim tab As System.Web.UI.W ebControls.Tabl e =
dg.Controls(0)
'Change the Top Pager
If dg.PagerStyle.P osition = PagerPosition.B ottom Or
dg.PagerStyle.P osition = PagerPosition.T opAndBottom Then

tab.Rows(tab.Ro ws.Count -
1).Cells(0).Att ributes.Add("co lspan",
tab.Rows(1).Cel ls.Count.ToStri ng())

'Change the Bottom Pager
If (dg.PagerStyle. Position = PagerPosition.T op Or
dg.PagerStyle.P osition = PagerPosition.T opAndBottom) Then

tab.Rows(0).Cel ls(0).Attribute s.Add("colspan" ,
tab.Rows(1).Cel ls.Count.ToStri ng())
End If
End If
End If
End Sub