De un Listbox a otro

[marel9]

Bueno primero que nada he estado leyendo muchos post sobre este tema y me ha funcionado pero he quedado con varias dudas.

Tengo dos listbox que los lleno de la siguiente manera

Código:

    Private Sub CARGAR_LSB_EXISTENTES()
        Try

            If ENCABEZADOSComboBox.SelectedValue <> Nothing Then

                Dim SERVICIO As New ServiceMC.CASTA_MCWSSoapClient

                DSET_ASIGNADO.Clear()

                MENSA = SERVICIO.ERRORES

                If MENSA <> "0" Then
                    MsgBox(MENSA)
                Else
                    DSET_ASIGNADO = SERVICIO.MENU_EXISTENTES

                    DV_MENU_ASIGNADO.Table = DSET_ASIGNADO.Tables(0)

                    DV_MENU_ASIGNADO.RowFilter = String.Format(" PADRE = '{0}' ", ENCABEZADOSComboBox.SelectedValue)

                    MENU_EXISTENTESListBox.DataSource = DV_MENU_ASIGNADO
                    MENU_EXISTENTESListBox.DisplayMember = "HIJOS"
                    MENU_EXISTENTESListBox.ValueMember = "FORM_NAME"

                End If
            End If

        Catch ex As Exception

        End Try
    End Sub

Tengo otro listbox que lo lleno asi:

Código:

   Private Sub CARGAR_LSB_ASIGNADOS()
        Try

            If ENCABEZADOSComboBox.Text.Trim <> Nothing Then


                Dim DV As New DataView

                Dim SERVICIO As New ServiceMC.CASTA_MCWSSoapClient
                Dim DSET As New DataSet
                DSET.Clear()

                MENSA = SERVICIO.ERRORES

                If MENSA <> "0" Then
                    MsgBox(MENSA)
                Else

                    DSET = SERVICIO.MENU_USUARIO

                    DV.Table = DSET.Tables(0)

                    DV.RowFilter = " COD_TIPUSU = '" & USUARIOSListBox.SelectedValue & _
                                    "' AND PADRE= '" & ENCABEZADOSComboBox.Text.Trim & "'"

                    MENU_ASIGNADOSListBox.DataSource = DV
                    MENU_ASIGNADOSListBox.DisplayMember = "HIJOS"
                    MENU_ASIGNADOSListBox.ValueMember = "COD_MENU"



                End If
            End If

        Catch ex As Exception

        End Try
    End Sub

Vaya lo que sucede es que quiero pasar los datos desde MENU_EXISTENTESListBox a MENU_ASIGNADOSListBox, solamente los que selecciono, ahorita estoy probando uno por uno con este codigo.

Código:

   Private Sub ENLAZAR_DATOS()
        Try
            MENU_ASIGNADOSListBox.Items.Add(MENU_EXISTENTESListBox.SelectedItem)
        Catch ex As Exception
            MessageBox.Show(ex.Message, _
                                  NOM_EMPRESA.Trim, _
                                  MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Vaya pero al pasar al MENU_EXISTENTESListBox me sale este error.

System.Data.DataRowView

Encontes no se cual sera el error

Espero me puedan ayudar.

[Darkavender]

Prueba agregando el .ToString

Código vb:

ListBox2.Items.Add(ListBox1.SelectedItem.ToString)
 

[marel9]

No ya lo habia probado y tampoco funciona la verdad no encuentro porque me da este error