dropdownlistdatavalue.aspx
来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 49 行
ASPX
49 行
<%@ Import namespace="System.Data" %>
<Script runat="Server">
Sub Page_Load
If Not IsPostBack Then
Dim dtbMusic As New DataTable
Dim drowNewRows As DataRow
dtbMusic.Columns.Add( _
New DataColumn( "CategoryName", GetType( String ) ) )
dtbMusic.Columns.Add( _
New DataColumn( "CategoryID", GetType( String ) ) )
drowNewRows = dtbMusic.NewRow()
drowNewRows( "CategoryName" ) = "Country Music"
drowNewRows( "CategoryID" ) = "country"
dtbMusic.Rows.Add( drowNewRows )
drowNewRows = dtbMusic.NewRow()
drowNewRows( "CategoryName" ) = "Rock Music"
drowNewRows( "CategoryID" ) = "rock"
dtbMusic.Rows.Add( drowNewRows )
drowNewRows = dtbMusic.NewRow()
drowNewRows( "CategoryName" ) = "Classical Music"
drowNewRows( "CategoryID" ) = "classical"
dtbMusic.Rows.Add( drowNewRows )
dropCategory.DataSource = dtbMusic
dropCategory.DataTextField = "CategoryName"
dropCategory.DataValueField = "CategoryID"
dropCategory.DataBind
End If
End Sub
</script>
<html>
<head><title>DropDownListDataValue.aspx</title></head>
<body>
<form Runat="Server">
<asp:DropDownList
ID="dropCategory"
Runat="Server"/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?