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.