日期:2013-10-15  浏览次数:20471 次

This code was written in response to a message posted on one of Charles Carroll's ASP.NET lists. You can sign up for one or all of the lists here.
Code:

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<html>
<script language="VB" runat="server">
    Sub Page_Load(sender As Object, e As EventArgs)
    If Not IsPostBack Then
           DropDownList1.DataTextField = "pub_name"
       DropDownList1.DataValueField = "pub_id"
       BindList
        End If
    End Sub

    Sub ButtonClick(sender As Object, e As EventArgs)
    If sender.ID = "Button1" Then
       DropDownList1.DataTextField = "pub_id"
       DropDownList1.DataValueField = "pub_name"
    Else
           DropDownList1.DataTextField = "pub_name"
       DropDownList1.DataValueField = "pub_id"
    End If

    BindList

    Button1.Visible = "False"
    Button2.Visible = "True"
    End Sub

    Sub BindList()
    Dim myConnection As SqlConnection = new SqlConnection("Data Source=(local)\NetSDK; Trusted_Connection=Yes; Initial Catalog=pubs")

    Dim myCommand As SqlCommand = New SqlCommand("Select pub_id, pub_name From publishers", myConnection)
    
    myConnection.Open()

    DropDownList1.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
        DropDownList1.DataBind()

        DropDownList1.Items.Insert(0, "Select an Item")
    DropDownList1.SelectedIndex = 0
    End Sub

</script>
<body>
<form runat="Server">
<asp:DropDownList id="DropDownList1" runat="server" />
<asp:Button id="Button1" Text="Switch Em" OnClick="ButtonClick" runat="server" />
<asp:Button id="Button2" Text="Switch Em Back" OnClick="ButtonClick" Visible="False" runat="server" />
</form>
</body>
</html>