📄 ch16-06-02.aspx
字号:
<%@ 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -