یه کد نوشتم با دیتا گرید به صورت Custom paging مشابه جستجو در سایت http://nofa.ir/SearchUser.aspx
درست کار می کنه ولی علاو بر شکل ظاهریش که به صورت رکورد بای رکورد هست موقع خوندن از بانک همیشه 10 تا رکورد اخر
بانک رو نمی خونه اگه هم مثلا 8 تا رکورد تو بانک باشه فقط 6 رکورد رو نشون میده
اگه می تونید لطف کنید راهنمایی کنید ( مشابه جستجوی اعضای سایت درسایت نوفا)
strConString = ConfigurationSettings.AppSettings( "constring" )
conNorthwind= New SqlConnection( strConString )
If Not IsPostBack Then
' Get Total Pages
strSelect = "Select Count(*) From Jobstatus "
cmdSelect = New SqlCommand( strSelect, conNorthwind )
conNorthwind.Open()
grig5.VirtualItemCount = ( cmdSelect.ExecuteScalar() / grig5.PageSize )
conNorthwind.Close()
BindDataGrid
End If
End Sub
Sub LinkButton_sign( s As Object, e As EventArgs )
response.redirect("sign_out.aspx")
Session("MyItem")=""
end sub
Sub LinkButton_enter( s As Object, e As EventArgs )
Session("MyItem")=Session("MyItem")
response.redirect("homepage_suaaa.aspx")
end sub
Sub BindDataGrid
Dim dadProducts As SqlDataAdapter
Dim dstProducts As DataSet
intEndIndex = intStartIndex + grig5.PageSize
strSelect = "Select employeeid,karfarmauser,institute,jobtitle,reshteh,madrak,contacttime,addressjob,city,avrege,sex,tstatus,oldlimit,worktime,contactnumber,salary,contract,postsazmani,expertrequire,futureveiw From Jobstatus Where employeeid > @startIndex " _
& "And employeeid <= @endIndex "
dadProducts = New SqlDataAdapter( strSelect, conNorthwind )
dadProducts.SelectCommand.Parameters.Add( "@startIndex", intStartIndex )
dadProducts.SelectCommand.Parameters.Add( "@endIndex", intEndIndex )
dstProducts = New DataSet
dadProducts.Fill( dstProducts)
grig5.DataSource = dstProducts
grig5.DataBind()
End Sub
Sub grig5_PageIndexChanged( s As Object, e As DataGridPageChangedEventArgs )
intstartIndex = ( e.NewPageIndex * grig5.PageSize )
grig5.CurrentPageIndex = e.NewPageIndex
BindDataGrid
End Sub