ASP.NET 2.0高级数据处理之数据绑定(1)

Number of Records: ＜%# count.ToString() %＞

＜script language="VB" runat="server"＞
Sub Page_Load(sender As Object, e As EventArgs) 
　Page.DataBind
End Sub
ReadOnly Property custID() As String
　Get
Return "ALFKI"
　End Get
End Property
ReadOnly Property orderCount() As Integer
　Get
Return 11
　End Get
End Property 
＜/script＞ 
＜form action="DataBind1_vb.aspx" runat="server"＞
Customer: ＜b＞＜%# custID %＞＜/b＞＜br /＞
Open Orders: ＜b＞＜%# orderCount %＞＜/b＞
＜/form＞

＜asp:DropDownList id="StateList" runat="server"＞
＜asp:ListItem＞CA＜/asp:ListItem＞
……
＜/asp:DropDownList＞
＜asp:button ID="Button1" Text="Submit" OnClick="SubmitBtn_Click" runat="server"/＞
Selected State: ＜asp:label ID="Label1" text='
＜%# StateList.SelectedItem.Text %＞' runat="server"/＞

Sub Page_Load(sender As Object, e As EventArgs) 
If Not IsPostBack Then
　Dim values as ArrayList= new ArrayList()
　values.Add ("IN")
　values.Add ("KS")
　values.Add ("MD")
　values.Add ("MI")
　values.Add ("OR")
　values.Add ("TN")
　DropDown1.DataSource = values
　DropDown1.DataBind
End If
End Sub

Sub Page_Load(sender As Object, e As EventArgs) 
　If Not IsPostBack Then 
Dim dt As DataTable
Dim dr As DataRow
Dim i As Integer
'建立DataTable
dt = New DataTable
dt.Columns.Add(New DataColumn("IntegerValue", GetType(Integer)))
dt.Columns.Add(New DataColumn("StringValue", GetType(String)))
dt.Columns.Add(New DataColumn("DateTimeValue", GetType(DateTime)))
dt.Columns.Add(New DataColumn("BooleanValue", GetType(Boolean)))
'填充一些数据
For i = 1 To 9
　dr = dt.NewRow()
　dr(0) = i
　dr(1) = "Item " + i.ToString()
　dr(2) = DateTime.Now.ToShortTimeString
　If (i Mod 2 ＜＞ 0) Then
dr(3) = True
　Else
dr(3) = False
　End If
　'把数据行添加到表
　dt.Rows.Add(dr)
Next
GridView1.DataSource = New DataView(dt)
GridView1.DataBind()
　End If
End Sub