📄 grid12.aspx
字号:
<%@ Import Namespace="System.Data" %>
<html>
<script language="VB" runat="server">
Dim SortField As String
Function CreateDataSource() As ICollection
Dim dt As DataTable
Dim dr As DataRow
Dim i As Integer
'创建一个数据表
dt = New DataTable
dt.Columns.Add(New DataColumn("整型", GetType(Integer)))
dt.Columns.Add(New DataColumn("字符串类型", GetType(String)))
dt.Columns.Add(new DataColumn("货币类型", GetType(Double)))
'用For循环对行数据进行赋值
For i = 1 To 9
dr = dt.NewRow()
dr(0) = 9-i
dr(1) = "Item " & i.ToString()
dr(2) = 1.23 * (i + 1)
'增加行数据到数据表
dt.Rows.Add(dr)
Next
'返回数据表的视图
Dim dv as DataView = New DataView(dt)
dv.Sort = SortField
CreateDataSource = dv
End Function
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
If SortField = "" Then
SortField = "整型"
End If
BindGrid
End If
End Sub
Sub MyDataGrid_Sort(sender As Object, e As DataGridSortCommandEventArgs)
SortField = e.SortExpression
BindGrid
End Sub
Sub BindGrid()
MyDataGrid.DataSource = CreateDataSource()
MyDataGrid.DataBind
End Sub
</script>
<body>
<h3><font face="Verdana"> 在DataGrid中排序的例子</font></h3>
<form runat=server>
<ASP:DataGrid id="MyDataGrid" runat="server"
AllowSorting="true"
OnSortCommand="MyDataGrid_Sort"
BorderColor="black"
BorderWidth="1"
CellPadding="3"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#ccccff"
HeaderStyle-ForeColor="black"
/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -