listbox onclick options?

**lleemon** · Jun 11th, 2005, 07:50 AM

I am trying to create a little form that has a table with 3 columns, first column would have a single select listbox, second column contains a multiselect listbox and the third and last listbox is for results. I want to be able to select the first column and based on what I click it loads the third column with what has already been selected (if so). Then I want to be able to select as many items in the second column and push a button to add to the third column.

So I don't see an onclick for a listbox. Are there any options to do something like this?

here is my code:

VB Code:

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" Trace="false" debug="true"%>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.IO" %>
 
<script runat="server">
    Sub Page_Load
    '-----------------------------------------------------------------------
    '
    '-----------------------------------------------------------------------
        If Not IsPostBack Then
            BindDataGrid("products_fullmodel")
        End if
    End Sub
    
    Sub BindDataGrid(sSortField as String)
    '-----------------------------------------------------------------------
    '
    '-----------------------------------------------------------------------
        Dim conPubs as SqlConnection
        Dim cmdProducts as SqlCommand
        Dim cmdProduct as SqlCommand
        Dim dtrProducts as SqlDataReader
        Dim dtrProduct as SqlDataReader
            
        'Retrieve records from database
        conPubs = New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("MS_SQL_CONN"))
        cmdProducts = New SqlCommand("SELECT products_fullmodel, products_id FROM why3s_products ORDER BY " & sSortField, conPubs)
        
        cmdProduct = New SqlCommand("SELECT product_name, product_id FROM why3s_product ORDER BY product_name", conPubs)
            
        conPubs.Open()
 
        dtrProduct = cmdProduct.ExecuteReader()
        lstProduct.DataSource = dtrProduct
        lstProduct.DataTextField = "product_name"
        lstProduct.DataValueField = "product_id"
        lstProduct.DataBind()
        dtrProduct.Close()
            
        dtrProducts = cmdProducts.ExecuteReader()
        lstProducts.DataSource = dtrProducts
        lstProducts.DataTextField = "products_fullmodel"
        lstProducts.DataValueField = "products_id"
        lstProducts.DataBind()
        dtrProducts.Close()
        conPubs.Close()
    End Sub
    
    Sub sbLoadSelected(s As Object, e as EventArgs)
    '-----------------------------------------------------------------------
    '
    '-----------------------------------------------------------------------
        Dim conPubs as SqlConnection
        Dim cmdSelected as SqlCommand
        Dim dtrSelected as SqlDataReader
 
        'Retrieve records from database
        conPubs = New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("MS_SQL_CONN"))
        cmdSelected = New SqlCommand("SELECT products_fullmodel, products_id FROM why3s_products where product_id = " & lstProduct.SelectedValue & " ORDER BY products_fullmodel", conPubs)
        lblProduct.Text = lstProduct.SelectedValue
        lstSelected.Items.Clear()
        
        conPubs.Open()
 
        dtrSelected = cmdSelected.ExecuteReader()
        'Bind to DropDownList
        lstSelected.DataSource = dtrSelected
        lstSelected.DataTextField = "products_fullmodel"
        lstSelected.DataValueField = "products_id"
        lstSelected.DataBind()
        dtrSelected.Close()
 
        conPubs.Close()         
    End Sub
 
    Sub sbShow(s As Object, e as EventArgs)
    '-----------------------------------------------------------------------
    '
    '-----------------------------------------------------------------------
        lblProduct.Text = lstProduct.SelectedValue
    End Sub
    
</script>
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<form id="frmAdd" name="frmAdd" action="addproduct.aspx" method="post" enctype="multipart/form-data" runat="server">
<table>
    <tr>
     <td valign="top"><asp:ListBox ID="lstProduct" runat="server" Height="500" OnSelectedIndexChanged="sbLoadSelected"></asp:ListBox></td>
     <td valign="top"><asp:ListBox ID="lstProducts" runat="server" SelectionMode="Multiple" Height="500"></asp:ListBox></td>
     <td valign="top"><asp:ListBox ID="lstSelected" runat="server"></asp:ListBox></td></tr>
    <tr>
      <td><asp:Label ID="lblProduct" runat="server" /></td>
      <td><asp:Button ID="Submit" CommandName="cmdShow" OnClick="sbShow" runat="server" /></td>
      <td>&nbsp;</td>
    </tr>
</table>
</form>
</body>
</html>

**Patch21** · Jun 11th, 2005, 01:24 PM

You need to add an AutoPostBack = True property to your listbox in your html. When the selectedindex changes, it will post back and run the event u have defined (sbLoadSelected). You can put the code in there...

VB Code:

Public Sub sbLoadSelected(ByVal sender As Object, ByVal e As System.EventArgs)
    '...code here
End Sub

**lleemon** · Jun 11th, 2005, 02:22 PM

Thanks, this should work.

Thread: listbox onclick options?

Thread Tools

Display

listbox onclick options?

Re: listbox onclick options?

Re: listbox onclick options?

Posting Permissions