📄 9-9.aspx

📁 asp做的新闻系统

💻 ASPX

字号:

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>

<html>
   <script runat="server">   
      Dim SortExpression As String
 
      Function CreateDataSource() As ICollection
         Dim dt As New DataTable()
         Dim dr As DataRow
         Dim Rand_Num As New Random()
        
         dt.Columns.Add(New DataColumn("IntegerValue", GetType(Int32)))
         dt.Columns.Add(New DataColumn("StringValue", GetType(String)))
         dt.Columns.Add(New DataColumn("CurrencyValue", GetType(Double)))
        
         Dim i As Integer
         For i = 0 To 14
            dr = dt.NewRow() 
            dr(0) = i
            dr(1) = "Item " & i.ToString()
            dr(2) = 1.23 * Rand_Num.Next(1, 15) 
            dt.Rows.Add(dr)
         Next i 
         Dim dv As New DataView(dt)
         dv.Sort = SortExpression
         Return dv
      End Function 

      Sub Page_Load(sender As Object, e As EventArgs) 
         If Not IsPostBack Then 
            If SortExpression = "" Then
               SortExpression = "IntegerValue"
            End If
            ItemsGrid.DataSource = CreateDataSource()
            ItemsGrid.DataBind()
         End If
      End Sub 

      Sub Sort_Grid(sender As Object, e As DataGridSortCommandEventArgs)    
         SortExpression = e.SortExpression.ToString()
         ItemsGrid.DataSource = CreateDataSource()
         ItemsGrid.DataBind()
      End Sub 
   </script>
<body>
   <form runat="server">
      <h3>DataGrid排序示例</h3>
      <asp:DataGrid id="ItemsGrid" runat="server"
           BorderColor="Blue"
           BorderWidth="1"
           CellPadding="3"
           AllowSorting="true"
           OnSortCommand="Sort_Grid"
           HeaderStyle-BackColor="White"
           AutoGenerateColumns="true"/>
   </form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -