forked from cubika/OneCode
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathDefault.aspx.vb
More file actions
56 lines (49 loc) · 2.64 KB
/
Default.aspx.vb
File metadata and controls
56 lines (49 loc) · 2.64 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
'******************************** 模块头 **********************************\
' 模块名: Default.aspx.vb
' 项目名: VBASPNETFixedHeaderGridView
' 版权(c) Microsoft Corporation
'
' 此.vb文件只用以绑定数据表到GridView。
'
' This source is subject to the Microsoft Public License.
' See http://www.microsoft.com/en-us/openness/resources/licenses.aspx#MPL.
' All other rights reserved.
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
' WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
'****************************************************************************/
Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' 定义一个数据表作为GridView的数据源.
Dim tab As New DataTable()
tab.Columns.Add("a", Type.[GetType]("System.String"))
tab.Columns.Add("b", Type.[GetType]("System.String"))
tab.Columns.Add("c", Type.[GetType]("System.String"))
tab.Columns.Add("d", Type.[GetType]("System.String"))
tab.Columns.Add("e", Type.[GetType]("System.String"))
tab.Columns.Add("f", Type.[GetType]("System.String"))
tab.Columns.Add("g", Type.[GetType]("System.String"))
tab.Columns.Add("h", Type.[GetType]("System.String"))
tab.Columns.Add("i", Type.[GetType]("System.String"))
tab.Columns.Add("j", Type.[GetType]("System.String"))
For i As Integer = 0 To 34
Dim dr As DataRow = tab.NewRow()
dr("a") = String.Format("row:{0} columns:a", i.ToString().PadLeft(2, "0"c))
dr("b") = String.Format("row:{0} columns:b", i.ToString().PadLeft(2, "0"c))
dr("c") = String.Format("row:{0} columns:c", i.ToString().PadLeft(2, "0"c))
dr("d") = String.Format("row:{0} columns:d", i.ToString().PadLeft(2, "0"c))
dr("e") = String.Format("row:{0} columns:e", i.ToString().PadLeft(2, "0"c))
dr("f") = String.Format("row:{0} columns:f", i.ToString().PadLeft(2, "0"c))
dr("g") = String.Format("row:{0} columns:g", i.ToString().PadLeft(2, "0"c))
dr("h") = String.Format("row:{0} columns:h", i.ToString().PadLeft(2, "0"c))
dr("i") = String.Format("row:{0} columns:i", i.ToString().PadLeft(2, "0"c))
dr("j") = String.Format("row:{0} columns:j", i.ToString().PadLeft(2, "0"c))
tab.Rows.Add(dr)
Next
' 数据绑定方法.
gvwList.DataSource = tab
gvwList.DataBind()
End Sub
End Class