Sparky,
A simple test shows that your code should be working. And that the problem
has to be that databinding is recurring somewhere.
Here's what I tested with.
WebForm Code:
<form id="Form1" method="post" runat="server">
<asp:ListBox id="ListBox1" runat="server"></asp:ListBox>
<asp:ListBox id="ListBox2" runat="server"></asp:ListBox>
<asp:Button id="Button2" runat="server" Text="Button"></asp:Button>
</form>
Code Behind:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
'---First page load only
ListBox1.Items.Add(New ListItem("1"))
ListBox1.Items.Add(New ListItem("2"))
ListBox1.Items.Add(New ListItem("3"))
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
ListBox2.Items.Add(ListBox1.SelectedItem.Text)
ListBox1.Items.Remove(ListBox1.SelectedItem.Text)
End Sub
Keeping the task simple like this the code works. The only thing that could
be creating the problem you are describing is if the list box is being
re-bound. Based on the code you sent me you should change your populate list
box line to:
Function PopulateListBox()
If Not IsPostBack Then
Dim strDLNumber As String = ddlDrawingList.SelectedItem.Text()
Dim objConn As New
OleDb.OleDbConnection(ConfigurationSettings.AppSet tings("strConnection"))
Dim strSQL As String = "SELECT tblDrawings.DrawingNumber,
tblDrawings.ID FROM tblDrawingList INNER JOIN tblDrawings ON
tblDrawingList.ID = tblDrawings.ID WHERE (DLNumber = '" & strDLNumber &
"');"
Dim ds As New DataSet
Dim objCommand As New OleDb.OleDbCommand(strSQL, objConn)
Dim myCommand As New OleDb.OleDbDataAdapter(strSQL, objConn)
myCommand.Fill(ds, "DataTable")
lbColumn1.DataSource = ds.Tables("DataTable")
lbColumn1.DataTextField = "DrawingNumber"
lbColumn1.DataValueField = "ID"
lbColumn1.DataBind()
End If
End Function
Of course there may be a better place in your code to put the If Not
IsPostBack, but this should work for testing...
--
Sincerely,
S. Justin Gengo, MCP
Web Developer / Programmer
www.aboutfortunate.com
"Out of chaos comes order."
Nietzsche
"Sparky Arbuckle" <tw*@secureroot.com> wrote in message
news:11**********************@g49g2000cwa.googlegr oups.com...
Here you go Justin:
This is the sub that handles the "Delete Drawings" button. It simply
hides / shows panels and populates the listbox.
Private Sub hlbtnDeleteDrawings_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles hlbtnDeleteDrawings.Click
If Page.IsPostBack Then
PanelDeleteDrawings.Visible = True
PanelAddDrawings.Visible = False
PanelOptions.Visible = True
lblDrawingList.Text = "Delete drawings from: <b>" &
ddlDrawingList.SelectedItem.Text() & "</b>"
End If
PopulateListBox()
End Sub
_____________
This is the function that populates the listbox with data.
Function PopulateListBox()
Dim strDLNumber As String = ddlDrawingList.SelectedItem.Text()
Dim objConn As New
OleDb.OleDbConnection(ConfigurationSettings.AppSet tings("strConnection"))
Dim strSQL As String = "SELECT tblDrawings.DrawingNumber,
tblDrawings.ID FROM tblDrawingList INNER JOIN tblDrawings ON
tblDrawingList.ID = tblDrawings.ID WHERE (DLNumber = '" & strDLNumber &
"');"
Dim ds As New DataSet
Dim objCommand As New OleDb.OleDbCommand(strSQL, objConn)
Dim myCommand As New OleDb.OleDbDataAdapter(strSQL, objConn)
myCommand.Fill(ds, "DataTable")
lbColumn1.DataSource = ds.Tables("DataTable")
lbColumn1.DataTextField = "DrawingNumber"
lbColumn1.DataValueField = "ID"
lbColumn1.DataBind()
End Function
___________________________
This is the sub for the button to transfer Items from Column1 to
Column2:
Private Sub btnCol1ToCol2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnCol1ToCol2.Click
Dim s As String = lbColumn1.SelectedItem.Text
lbColumn2.Items.Add(s)
lbColumn1.Items.Remove(s)
End Sub
