Hi All,

I have two listboxes (we'll call lstTarget and lstSource). Both are set to MultiExtended and bound to a datatable. I want to be able to add multiple items from lstSource to lstTarget (which works fine) and then remove the selected items from lstSource. So far it only works for continuously selected items, but a logic error occurs when you select non-continuous items.

Apparently you have to make changes to the underlying datatable, not the listbox, however, the lstSource.Remove(objRow) generates an exception.

Thanks,
Kunkel

1. What's the error details?
2. Can you post the code you are using to move the items?

You should only need to change the underlying datasource if you rebind the listboxs after making changes.

Peter
------------------------------------------------------
Work smarter, not harder.

here's the working code that moves succesfully, it would be nice to add and remove the row in the same for loop:
-------------
        'this for loop adds item(s) from SOURCE to TARGET
        Dim objDataRowView As DataRowView
        For Each objDataRowView In lstSource.SelectedItems
            'ADD A ROW FROM THIS SOURCE TABLE TO THE TARGET TABLE
            Dim objRow As DataRow = objDataRowView.Row
            f_dtTarget.ImportRow(objRow)

            'the next line generates an exception
            'f_dtSource.Rows.Remove(objRow)
        Next
-------------
i have also tried creating several remove loops after the move loop:
---------------
attempt1->exception-index out of range (there is no row at -1)

        Dim intLastIndex
        For intLastIndex = lstSource.SelectedItems.Count - 1 To 0 Step -1
            f_dtSource.Rows.RemoveAt(lstSource.SelectedItems.I ndexOf(objDataRowView))
        Next
-----------------
attempt2->exception-Cannot modify the Items collection when the datasource property is set.

        Dim intTotalSourceRows As Integer = f_dtSource.Rows.Count - 1
        Dim i As Integer
        Dim intTotalTargetRows As Integer = f_dtTarget.Rows.Count - 1
        Dim j As Integer

        For i = 0 To intTotalTargetRows
            'set the index of target from loop counter
            lstTarget.SelectedIndex() = i
            For j = 0 To intTotalSourceRows
                'set the index of source from loop counter
                lstSource.SelectedIndex() = j
                'if selected values are equal then
                If lstTarget.Items(i).row("Thing") = lstSource.Items(j).row("Thing") Then
                    'remove row from source
                    f_dtSource.AcceptChanges()

                    lstSource.Items.RemoveAt(j)
                End If
            Next
        Next
---------
thanks for help
Kunkel