listboxdatavalue.aspx
来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 47 行
ASPX
47 行
<%@ Import namespace="System.Data" %>
<Script Runat="server">
Sub Page_Load
If Not IsPostBack Then
Dim dtblStates As New DataTable
Dim drowNewRow As DataRow
dtblStates.Columns.Add(New DataColumn( "StateName", GetType( String ) ) )
dtblStates.Columns.Add(New DataColumn( "StateAbbr", GetType( String ) ) )
drowNewRow = dtblStates.NewRow()
drowNewRow( "StateName" ) = "California"
drowNewRow( "StateAbbr" ) = "CA"
dtblStates.Rows.Add( drowNewRow )
drowNewRow = dtblStates.NewRow()
drowNewRow( "StateName" ) = "Massachusetts"
drowNewRow( "StateAbbr" ) = "MA"
dtblStates.Rows.Add( drowNewRow )
drowNewRow = dtblStates.NewRow()
drowNewRow( "StateName" ) = "Ohio"
drowNewRow( "StateAbbr" ) = "OH"
dtblStates.Rows.Add( drowNewRow )
lstStateOfResidence.DataSource = dtblStates
lstStateOfResidence.DataTextField = "StateName"
lstStateOfResidence.DataValueField = "StateAbbr"
lstStateOfResidence.DataBind
End If
End Sub
</script>
<html>
<head><title>ListBoxDataValue.aspx</title></head>
<body>
<form Runat="Server">
<asp:ListBox
ID="lstStateOfResidence"
Runat="Server"/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?