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 + -
显示快捷键?