raravaice
پنج شنبه 13 اردیبهشت 1386, 11:53 صبح
اینارو بزار توی html
<TABLE id="Table4" width="100%">
<TR>
<TD align="left" width="10%"></TD>
<TD title="صفحه اول" vAlign="bottom" width="10%"><A id="First" href="pagingdatalist.aspx#BookMark" runat="server" OnServerClick="ShowFirstPage"><IMG src="images/firstpage.gif" border="0"></A>
<STRONG><FONT size="2">شروع</FONT></STRONG>
</TD>
<TD title="صفحه قبلی" vAlign="bottom" width="10%"><A id="Previous" href="pagingdatalist.aspx#BookMark" runat="server" OnServerClick="ShowPreviousPage"><IMG src="images/prevpage.gif" border="0"></A>
<STRONG><FONT size="2">قـبلی</FONT></STRONG>
</TD>
<TD title="صفحه بعدی" vAlign="bottom" width="10%"><STRONG><FONT size="2">بعـدی</FONT></STRONG> <A id="Next" href="pagingdatalist.aspx#BookMark" runat="server" OnServerClick="ShowNextPage"><IMG src="images/nextpage.gif" border="0"></A>
</TD>
<TD title="صفحه آخر" vAlign="bottom" width="10%"><FONT size="2"><STRONG>آخـر</STRONG></FONT> <A id="Last" href="pagingdatalist.aspx#BookMark" runat="server" OnServerClick="ShowLastPage"><IMG src="images/lastpage.gif" border="0"></A> </TD>
<TD align="right" width="42%"><asp:label id="lblCurrentIndex" Runat="server" Visible="False" Text="0"></asp:label><asp:label id="lblPageSize" Runat="server" Visible="False" Text="10">15</asp:label>
<asp:label id="lblRecordCount" Font-Size="9pt" Font-Names="Tahoma" Runat="server" Visible="False"></asp:label>
<asp:label id="lblCounts" Font-Size="9pt" Font-Names="Tahoma" Runat="server"></asp:label></TD>
</TR>
</TABLE>
اینا هم تو سورس برنامت (خودت تجزیه تحلیلش کن چون حال ندارم توضیح بدم
موفق باشی
PublicSub ShowFirstPage(ByVal s As System.Object, ByVal e As System.EventArgs)
lblCurrentIndex.Text = "0"
BindTheData()
EndSub
PublicSub ShowPreviousPage(ByVal s As System.Object, ByVal e As System.EventArgs)
lblCurrentIndex.Text = CStr(CInt(lblCurrentIndex.Text) - CInt(lblPageSize.Text))
IfCInt(lblCurrentIndex.Text) < 0 Then
lblCurrentIndex.Text = "0"
EndIf
BindTheData()
EndSub
PublicSub ShowNextPage(ByVal s As System.Object, ByVal e As System.EventArgs)
IfCInt(CInt(lblCurrentIndex.Text) + CInt(lblPageSize.Text)) < CInt(lblRecordCount.Text) Then
lblCurrentIndex.Text = CStr(CInt(lblCurrentIndex.Text) + CInt(lblPageSize.Text))
EndIf
BindTheData()
EndSub
PublicSub ShowLastPage(ByVal s As System.Object, ByVal e As System.EventArgs)
Dim intMod AsInteger
intMod = CInt(lblRecordCount.Text) ModCInt(lblPageSize.Text)
If intMod > 0 Then
lblCurrentIndex.Text = CStr(CInt(lblRecordCount.Text) - intMod)
Else
lblCurrentIndex.Text = CStr(CInt(lblRecordCount.Text) - CInt(lblPageSize.Text))
EndIf
BindTheData()
EndSub
PrivateSub ShowCounts()
lblCounts.Text = "|تعداد کل رکوردها: <b>" & lblRecordCount.Text
lblCounts.Text += "</b> | صفحه:<b> "
lblCounts.Text += CStr(CInt(CInt(lblCurrentIndex.Text) / CInt(lblPageSize.Text) + 1))
lblCounts.Text += "</b> از <b>"
If (CInt(lblRecordCount.Text) ModCInt(lblPageSize.Text)) > 0 Then
lblCounts.Text += CStr(Fix(CInt(lblRecordCount.Text) / CInt(lblPageSize.Text) + 1))
Else
lblCounts.Text += CStr(Fix(lblRecordCount.Text) / CInt(lblPageSize.Text))
EndIf
lblCounts.Text += "</b> |"
EndSub
Private Sub BindTheData()
con = New SqlConnection(strcon)
dastoor = "sql select"
Dim mysqlda AsNew SqlDataAdapter(dastoor, con)
Dim myds2 AsNew DataSet
IfNot Page.IsPostBack() Then
mysqlda.Fill(myds2)
lblRecordCount.Text = CStr(myds2.Tables(0).Rows.Count)
myds2 = Nothing
myds2 = New DataSet
EndIf
mysqlda.Fill(myds2, CInt(lblCurrentIndex.Text), CInt(lblPageSize.Text), "table name")
d12.DataSource = myds2.Tables("table name").DefaultView
d12.DataBind()
con.Close()
ShowCounts()
EndSub
کلا خاصیت fill برای
SqlDataAdapter
به 4 روش مقدار دهی کنی که توی روش چهارم اگه دقت کنی میبینی که یه startrecord داره و یه maxrecord اونارو باید مقدار دهی کنی
موفق باشی