'生成一些行,并在其中放置一些示例数据
For i = 1 To 9
dr = dt.NewRow()
dr(0) = 9-i
dr(1) = "项 " & i.ToString()
dr(2) = DateTime.Now.ToShortTimeString
If (i Mod 2 <> 0) Then
dr(3) = True
Else
dr(3) = False
End If
dr(4) = 1.23 * (i + 1)
'向数据表中添加行
dt.Rows.Add(dr)
Next
'向数据表返回 DataView
Dim dv as DataView = New DataView(dt)
dv.Sort = SortField
CreateDataSource = dv
End Function
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
If SortField = "" Then
SortField = "整数值"
End If
BindGrid
End If
End Sub
Sub MyDataGrid_Sort(sender As Object, e As DataGridSortCommandEventArgs)
SortField = e.SortExpression
BindGrid
End Sub
Sub BindGrid()
MyDataGrid.DataSource = CreateDataSource()
MyDataGrid.DataBind
End Sub
先将datagrid的allowpaging为true
Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
Dim newadocmd As OleDbDataAdapter
newadocmd = New OleDbDataAdapter("select class as 产品,id as 编号,name as 名称,style as 规格,sour as 厂家,monery as 价格 from datasour", strprov)
Dim newds As DataSet = New DataSet()
newadocmd.Fill(newds, "datasour")
DataGrid1.DataSource = newds.Tables.Item(0)'前面先进行数据绑定
DataGrid1.CurrentPageIndex = e.NewPageIndex '主要是这句,设置datagrid1当前页为(e.NewPageIndex 获取用户选定的页的索引)
DataGrid1.DataBind()
End Sub