本文介绍了一个使用ASP.NET和VB.NET实现的数据绑定和排序功能的示例。具体包括从数据库检索前20条记录，并根据用户选择的字段进行升序或降序排序。此外，还展示了如何通过网页元素触发排序操作。
1
Public Function DataBindRp()Function DataBindRp(ByVal sort As String)
2
Try
3 Dim strsql As String = "select top 20 * from hoo_info"
4 Dim dt As DataTable = DB.getDataTable(strsql)
5 Dim dv As DataView = dt.DefaultView
6 dv.Sort = sort
7 Me.Repeater1.DataSource = dv
8 Me.Repeater1.DataBind()
9 Catch ex As Exception
10 Return False
11 End Try
12
End Function
13
14 Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
15 If Not IsPostBack Then
16 DataBindRp("di_id ASC")
17 End If
18 End Sub
19
20
21
22 Private Sub LinkButton1_Click()Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
23 Dim sortString As String = Request.Form("sortstring").ToString()
24 Dim sortfield As String = Request.Form("sortfield").ToString()
25 Dim fullsortstring As String = sortfield + " " + sortString
26 If fullsortstring <> "" And Not fullsortstring Is Nothing Then
27 DataBindRp(fullsortstring)
28 End If
29
30 End Sub
Public Function DataBindRp()Function DataBindRp(ByVal sort As String)2
Try3
Dim strsql As String = "select top 20 * from hoo_info"4
Dim dt As DataTable = DB.getDataTable(strsql)5
Dim dv As DataView = dt.DefaultView6
dv.Sort = sort7
Me.Repeater1.DataSource = dv8
Me.Repeater1.DataBind()9
Catch ex As Exception10
Return False11
End Try12
End Function13
14
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load15
If Not IsPostBack Then16
DataBindRp("di_id ASC")17
End If18
End Sub19
20
21
22
Private Sub LinkButton1_Click()Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click23
Dim sortString As String = Request.Form("sortstring").ToString()24
Dim sortfield As String = Request.Form("sortfield").ToString()25
Dim fullsortstring As String = sortfield + " " + sortString26
If fullsortstring <> "" And Not fullsortstring Is Nothing Then27
DataBindRp(fullsortstring)28
End If29
30
End Sub<HTML> <HEAD> <title>asc</title> <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> <meta name="vs_defaultClientScript" content="JavaScript"> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"> <script language="javascript">
function Getsort(obj)
{ document.all.sortfield.value=obj; if (document.all.sortstring.value == 'ASC') { document.all.sortstring.value = 'DESC';
} else if (document.all.sortstring.value == 'DESC') { document.all.sortstring.value = 'ASC'; } __doPostBack('LinkButton1',''); } </script> </HEAD> <body> <form id="Form1" method="post" runat="server"> <table> <tr> <td ondblclick="Getsort('di_id');"><b>双击此处可排序</b><INPUT type="hidden" id="sortfield" runat="server" NAME="sortfield"> <INPUT type="hidden" id="sortstring" runat="server" value="ASC" NAME="sortstring"></td> </tr> <tr> <td> <asp:Repeater id="Repeater1" runat="server"> <ItemTemplate> <%# DataBinder.Eval(container.DataItem,"title") %> <BR> </ItemTemplate> </asp:Repeater></td> </tr> </table> <asp:LinkButton id="LinkButton1" runat="server">LinkButton</asp:LinkButton> </form> </body></HTML>
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
