|
bsp; lnkNext.Enabled = True
End If If CurPage > 1 Then
lnkPrve.Enabled = True
Else
lnkPrve.Enabled = False
End If
Label3.Text = "共 " & PageCount & " 页 当前第 " & CurPage & " 页"
DataGrid1.DataSource = clsGetData.GotoPage(CurPage)
DataGrid1.DataBind()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CInt(TextBox1.Text) > PageCount Then
CurPage = PageCount
TextBox1.Text = CurPage
Else
CurPage = Convert.ToInt32(TextBox1.Text)
End If
GridBind()
End Sub
Private Sub lnkNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkNext.Click
If CurPage < PageCount Then
CurPage += 1
GridBind()
End If
End Sub
Private Sub lnkPrve_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkPrve.Click
If CurPage > 1 Then
CurPage -= 1
GridBind()
End If
End Sub Public Property PageCount() As Integer
Get
Return ViewState("PageCount")
End Get Set(ByVal Value As Integer)
ViewState("PageCount") = Value
End Set
End Property Public Property CurPage() As Integer
Get
If ViewState("CurPage") = 0 Then
ViewState("CurPage") = 1
End If
Return ViewState("CurPage")
End Get Set(ByVal Value As Integer)
ViewState("CurPage") = Value
End Set
End Property
Private Sub DataGrid1_SortCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles DataGrid1.SortCommand
clsGetData.fldOrderby = e.SortExpression
GridBind()
End Sub
End Class
（3）下面是WebForm1.aspx 代码
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="bbs.WebForm1"%>
<HTML>
<HEAD>
<title>WebForm1</title>
<meta name=vs_snapToGrid content="False">
<meta name=vs_showGrid content="False">
<meta content="Microsoft Visual Studio .NET 7.1" name=GENERATOR>
<meta content="Visual Basic .NET 7.1" name=CODE_LANGUAGE>
<meta content=JavaScript name=vs_defaultClientScript>
<meta content=http://schemas.microsoft.com/intellisense/ie5 name=vs_targetSchema>
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:datagrid id=DataGrid1 style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 32px" runat="server"
AutoGenerateColumns="False" Width="392px" Height="184px" AllowSorting="True">
<Columns>
<asp:BoundColumn DataField="ProductID" SortExpression="ProductID" HeaderText="ProductID"></asp:BoundColumn>
<asp:BoundColumn DataField="ProductName" SortExpression="ProductName" HeaderText="ProductName"></asp:BoundColumn>
</Columns>
</asp:datagrid><asp:Label id="Label2" style="Z-INDEX: 107; LEFT: 318px; POSITION: absolute; TOP: 12px" runat="server">页 </asp:Label><asp:LinkButton id="lnkPrve" style="Z-INDEX: 105; LEFT: 8px; POSITION: absolute; TOP: 8px" runat="server">PrvePage</asp:LinkButton><asp:LinkButton id="lnkNext" style="Z-INDEX: 104; LEFT: 92px; POSITION: absolute; TOP: 8px" runat="server">NextPage</asp:LinkButton>
<asp:TextBox id="TextBox1" style="Z-INDEX: 102; LEFT: 251px; POSITION: absolute; TOP: 8px" runat="server" Width="57px"></asp:TextBox>
<asp:Button id="Button1" style="Z-INDEX: 103; LEFT: 349px; POSITION: absolute; TOP: 6px" runat="server" Width="40px" Text="GO" Height="24px">
</asp:Button><asp:Label id="Label1" style="Z-INDEX: 106; LEFT: 179px; POSITION: absolute; TOP: 11px" runat="server" Height="16px" Width="70px">转到第</asp:Label><asp:Label id="Label3" style="Z-INDEX: 108; LEFT: 8px; POSITION: absolute; TOP: 300px" runat="server" Height="18px" Width="317px">XXXXX</asp:Label>
</form>
</body>
</HTML>
上一页 [1] [2] [3]
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构 [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
[VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET） [VB.NET程序]Henry手记－VB.NET中动态加载Treeview节点（二）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
