Help on ListBox Control

VentureNewBie · Jul 17, 2001

Hi!

This is the piece of code.

I would like to know how I can remove all the items from ListBox1 and populate the same items in ListBox2 when the user clicks on a button named "SelectAll"

<%@ Language=VBScript %>
<HTML>
<HEAD>
<LINK REL="stylesheet" TYPE="text/css" HREF="../tms.css">
<title>Trial Menu Page</title>
</HEAD>
<form name=TrialMenuPage method=post>
<BODY>

<%
Set oConn = Server.CreateObject("ADODB.Connection&quot

'This line creates an ADO Connection Object named oConn.
'To use the oConn ADO connection we must first open it:

oConn.Open("provider=SQLOLEDB.1;UserId=tmsuser;password=tms;Initial Catalog=TMS;data source=testing-tms;&quot

set oRs = Server.CreateObject("ADODB.Recordset&quot

oRs.ActiveConnection = oConn
oRs.CursorType = 1
oRs.LockType = 1
oRs.Open "SELECT BankID, BankShortName from BankMaster order by BankShortName"

%>
<SCRIPT LANGUAGE=javascript>
<!--

/* Add groups selected from lstSelected list box to lstAvailable list box */

function Select_All()
{
/* Find selected items to add */
var cSelect = document.all.item("lstSelected&quot

; /* Listbox1 */
var cOut = document.all.item("lstAvailable&quot

; /* Listbox2 */

for (var i=0; i < cSelect.options.length; i++)
{
/* Check to see if a particular option is selected */
if(cSelect.options(i).selected)
{
/* Add new option to "Groups Selected" list box */
cOut.options[cOut.options.length]= new Option(cSelect.options(i).text, "value " + i);
cSelect.remove(i)
}
}
}

-->
</SCRIPT>

<center><h3>Trial Menu Page</h3></center>
<TABLE align="center" border=0 cellPadding=1 cellSpacing=1 style="HEIGHT: 208px; WIDTH: 444px"
width="75%">

<TR>
<TD><SELECT multiple id=lstAvailable name=lstAvailable size=2 style="HEIGHT: 204px; WIDTH: 186px">

</SELECT></TD>

<TD>
<P><INPUT id=btnSelectAll name=btnSelectAll type=button value=">>" style="HEIGHT: 24px; WIDTH: 57px" onclick="Select_All()"></P>
<P><INPUT id=btnSelectOne name=btnSelectOne type=button value=">" style="HEIGHT: 24px; WIDTH: 57px" onclick="Select_One()"></P>
<P><INPUT id=btnDeSelectAll name=btnDeSelectAll type=button value="<" style="HEIGHT: 24px; WIDTH: 55px" onclick="Deselect_One()"></P>
<P><INPUT id=btnDeSelectOne name=btnDeSelectOne type=button value="<<" style="HEIGHT: 24px; WIDTH: 57px" onclick="Deselect_All()"><br></P>
<CENTER> </CENTER>
</TD>
<TD><SELECT id="lstSelected" name="lstSelected" size=10 style="HEIGHT: 204px; WIDTH: 186px" onclick="Select_All()">

<%while Not oRs.EOF%>

<OPTION value="<%=oRs.Fields(0).Value%>" selected> <%=oRs.Fields(1).Value%></OPTION>

<%oRs.MoveNext()
wend
%>

</SELECT>
</TD>
</TR>
</TABLE>

<INPUT id=btnNext name=btnNext type=button value=Next style="HEIGHT: 24px; WIDTH: 54px">
<INPUT id=btnFinish name=btnFinish type=button value=Finish>
</P>
<input type="hidden" name="SelectFlag">
</BODY>
</form>
</HTML>

Mighty · Jul 18, 2001

VentureNewbie,

Try something like the following. I have used iza's FAq to generate this code. You will have to substitute your own form and select names into this code.

function select_all()
{
var listbox1 = document.myForm.mySelect1
var listbox2 = document.myForm.mySelect2
var oOption;

// Add all the options to the second listbox
for (var i = 0; i < listbox1.options.length; i++) {
oOption = document.createElement("OPTION&quot

;
oOption.text = listbox1.options.text;
oOption.value = listbox1.options.value;
listbox2.options.add(oOption);
}

// remove all the options from listbox2
while (listbox1.options.length != 0)
listbox1.options.remove(0);
}

I haven't tested this out but I hope that it should work. Mise Le Meas,

Mighty

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Help on ListBox Control

VentureNewBie

Programmer

Mighty

Programmer

Similar threads

Part and Inventory Search

Sponsor