ch16-06-02.aspx

来自「这是一个asp.net的全文教程.里面还有数据库的数据.对初学者有很大的帮助」· ASPX 代码 · 共 49 行

ASPX
49
字号
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDB" %>
<Html>
<Head>
<Script language="VB" runat="server">
Dim SortExpression As String = "UserAccount"
Function CreateDataSource() As ICollection
Dim OBJDataSet As DataSet = New DataSet()
Dim tSQL As String = "Select * From UserDatas"
GetDataSet(OBJDataSet, tSQL)
Dim OBJDataView As DataView
OBJDataView = OBJDataSet.Tables("UserDatas").DefaultView
OBJDataView.Sort = SortExpression
Return OBJDataView
End Function
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
DataGrid1.DataSource = CreateDataSource()
DataGrid1.DataBind()
End If
End Sub
Sub Sort_DataGrid(OBJ As Object, E As DataGridSortCommandEventArgs)
If Sorting.SelectedItem.Value = "ASC" Then
SortExpression = e.SortExpression.ToString() & " ASC"
Else
SortExpression = e.SortExpression.ToString() & " DESC"
End If
DataGrid1.DataSource = CreateDataSource()
DataGrid1.DataBind()
End Sub
</Script>
<!--#Include Virtual="DataSetOP.inc" -->
</Head>
<Body>
<Center><H2>DataGrid控件的数据排序</H2>
<Form Runat="Server">
<asp:DataGrid ID="DataGrid1" Runat="Server"
     AllowSorting="true"
     OnSortCommand="Sort_DataGrid"
     AutoGenerateColumns="true"/>
<asp:RadioButtonList ID="Sorting" Runat="Server"
     RepeatDirection="Horizontal" >
<asp:ListItem Text="由大到小" Value="DESC" />
<asp:ListItem Text="由小到大" Value="ASC" Selected="True" />
</asp:RadioButtonList>
 </Form>
</Body>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?