Forum Moderators: open
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub dgItems_pageindexChanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) Handles dgItems.PageIndexChanged
'This will check to make sure the page is within
'range of the existing pages.
If e.NewPageIndex >= 0 And e.NewPageIndex < dgItems.PageCount Then
dgItems.CurrentPageIndex = e.NewPageIndex
dgItems.DataBind()
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim cmsData As New System.Data.DataTable()
'--------------------------------------------------------
'Creating some data to work with.
'--------------------------------------------------------
cmsData.Columns.Add("DATE_SUBMITTED")
cmsData.Columns.Add("DIRECTED_TOWARDS")
cmsData.Columns.Add("COMMENDATION_MESSAGE")
For index = 1 To 100
Dim row As System.Data.DataRow = cmsData.NewRow()
row("DATE_SUBMITTED") = System.DateTime.Now.AddDays(index)
row("DIRECTED_TOWARDS") = index
row("COMMENDATION_MESSAGE") = index.ToString() + " filler text"
cmsData.Rows.Add(row)
Next
If (cmsData.Rows.Count > 0) Then
Dim dv As DataView = New DataView(cmsData)
dgItems.DataSource = dv
dgItems.DataBind()
End If
End Sub
End Class