昨天搞了一下实现了用datagrid的分页显示
效果:
代码:
Imports System.Data
Imports System.Data.SqlClient
Public Class datagrid
Inherits System.Web.UI.Page
Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
DataGrid1.CurrentPageIndex = e.NewPageIndex
Binddatasource()
End Sub
Function loaddataview() As DataView
Dim str As String
str = "server=(local);uid=sa;pwd=;database=lab"
Dim con As SqlConnection
con = New SqlConnection(str)
Dim ds As DataSet
Dim da As SqlDataAdapter
da = New SqlDataAdapter("select * from test2", con)
ds = New DataSet
da.Fill(ds, "test2")
loaddataview = New DataView(ds.Tables("test2"))
End Function
Sub Binddatasource()
DataGrid1.DataSource = loaddataview()
DataGrid1.DataBind()
End Sub
End Class