¿Cómo encontrar un item en un listview?

Tengo dos listview con dos botones, uno para asignar y otro para desasignar.
Cuando selección desasignar, tiene dos opciones, el recorre el lvw para encontrar el seleccionado en lvw1, cuando lo encuentra realiza ciertas acciones, lo que no se, es cual es el código para indicarle si no lo encuentra. Aquí envío el código como lo tengo diseñado hasta el momento:
Private Sub Cmddesasignar_Click()
Dim adbgrabar As ADODB.Recordset
Dim AdbInfo As ADODB.Recordset
Dim itmx1 As ListItem
Dim Retval1 As ValueConstants
Dim n As Integer
Dim Itmx As ListItem
    If Lvwmateriaprima1.ListItems.Count > 0 And Not Lvwmateriaprima1.SelectedItem Is Nothing Then
        Cantext.Visible = True
        Cantext.Enabled = True
        n = Lvwmateriaprima.ListItems.Count - 1
        If Lvwmateriaprima.ListItems.Count > 1 Then
            For Each itmx1 In Lvwmateriaprima.ListItems
                If itmx1.SubItems(2) = Lvwmateriaprima1.SelectedItem.SubItems(2) Then
                    Cantext.Text = Lvwmateriaprima1.SelectedItem.SubItems(4)
                    Asigtext.Text = Lvwmateriaprima.SelectedItem.SubItems(4)
                    Lvwmateriaprima.ListItems(Lvwmateriaprima.ListItems.Count - n).Selected = True
                    acumulab
                    Lvwmateriaprima.Enabled = True
                    Lvwmateriaprima.SelectedItem.SubItems(4) = Asigtext.Text
                    Lvwmateriaprima1.ListItems.Remove (Lvwmateriaprima1.SelectedItem.Index)
                    Cantext.Text = ""
                    Asigtext.Text = ""
                    Cmdasignar.Enabled = True
                    Cmddesasignar.Enabled = False
                    Cmdasignar.SetFocus
                    Exit Sub
                ElseIf itmx1.SubItems(2) <> Lvwmateriaprima1.SelectedItem.SubItems(2) Then
                    If Not Lvwmateriaprima1.SelectedItem Is Nothing Then
                    Set itmx1 = Lvwmateriaprima1.ListItems.Add(, , Lvwmateriaprima.SelectedItem.Text)
                    Lvwmateriaprima1.Sorted = True
                    Itmx.SubItems(1) = Lvwmateriaprima1.SelectedItem.SubItems(1)
                    Itmx.SubItems(2) = Lvwmateriaprima1.SelectedItem.SubItems(2)
                    Itmx.SubItems(3) = Lvwmateriaprima1.SelectedItem.SubItems(3)
                    Itmx.SubItems(4) = Lvwmateriaprima1.SelectedItem.SubItems(4)
                    Itmx.SubItems(5) = Lvwmateriaprima1.SelectedItem.SubItems(5)
                    End If
                End If
            Next itmx1
                   End If
    End If
End Sub

1 respuesta

Respuesta
1
Coloca una variable por fuera del for, la haces igual a false, si entra al for y lo encuentra la colocas en true, después del next del for preguntas por esa variable, si es tru la encontró, si es false no la encontró.
Hola. La verdad soy novato en programación. Te agradecería me indicaras tu respuesta en el código.
Dim Itmx As ListItem
    If Lvwmateriaprima1.ListItems.Count > 0 And Not Lvwmateriaprima1.SelectedItem Is Nothing Then
        Cantext.Visible = True
        Cantext.Enabled = True
        n = Lvwmateriaprima.ListItems.Count - 1
        If Lvwmateriaprima.ListItems.Count > 1 Then
Dim loEncontro As Boolean
loencontro=false
            For Each itmx1 In Lvwmateriaprima.ListItems
                If itmx1.SubItems(2) = Lvwmateriaprima1.SelectedItem.SubItems(2) Then
                    Cantext.Text = Lvwmateriaprima1.SelectedItem.SubItems(4)
                    Asigtext.Text = Lvwmateriaprima.SelectedItem.SubItems(4)
                    Lvwmateriaprima.ListItems(Lvwmateriaprima.ListItems.Count - n).Selected = True
                    acumulab
                    Lvwmateriaprima.Enabled = True
                    Lvwmateriaprima.SelectedItem.SubItems(4) = Asigtext.Text
                    Lvwmateriaprima1.ListItems.Remove (Lvwmateriaprima1.SelectedItem.Index)
                    Cantext.Text = ""
                    Asigtext.Text = ""
                    Cmdasignar.Enabled = True
                    Cmddesasignar.Enabled = False
                    Cmdasignar.SetFocus
loencontro=true
                    Exit Sub
                ElseIf itmx1.SubItems(2) <> Lvwmateriaprima1.SelectedItem.SubItems(2) Then
                    If Not Lvwmateriaprima1.SelectedItem Is Nothing Then
                    Set itmx1 = Lvwmateriaprima1.ListItems.Add(, , Lvwmateriaprima.SelectedItem.Text)
                    Lvwmateriaprima1.Sorted = True
                    Itmx.SubItems(1) = Lvwmateriaprima1.SelectedItem.SubItems(1)
                    Itmx.SubItems(2) = Lvwmateriaprima1.SelectedItem.SubItems(2)
                    Itmx.SubItems(3) = Lvwmateriaprima1.SelectedItem.SubItems(3)
                    Itmx.SubItems(4) = Lvwmateriaprima1.SelectedItem.SubItems(4)
                    Itmx.SubItems(5) = Lvwmateriaprima1.SelectedItem.SubItems(5)
loencontro=true
                    End If
                End If
            Next itmx1
                   End If
    End If
End Sub
Hola. Encontré una solución diferente, sin embargo aun tengo un problema. Cuando desasigno necesito que el item seleccionado en lvw1, quede sombreado en lvw. Me habías indicado que debía realizar lo siguiente:
lvwmateriaprima.listitems(lvwmateriaprima.listitems.count - 1). selected = true
¿Sin embargo aquí lo que necesito es que me encuentre un item como podría hacerlo?.
Te pido el favor que me regales el código.
Gracias.
Hola. El código lo tengo así:
Dim itmx2 as listitem
for each itmx2 in lvwmateriaprima.listitems
if itmx2.subitems(2) = lvwmateriaprima1.selecteditem.subitems(2) then
      lvwmateriaprima.enabled )= true
      lvwmateriaprima.selecteditem.subitems(2).selected = true
end if
next itmx2
Sin embargo aquí sombrea lo que esta en negrilla y me dice: "Calificador no válido"
Necesito que sombree en lvwmatriaprima el item que seleccione en lvwmateriaprima1
Agradezco tu ayuda, estoy al borde del colapso.
lvwmateriaprima.selecteditem.selected = true
Hola. Ya lo había intentado así, pero no lo asigna. No se si estoy definiendo mal el itmx2, es decir que no lo debe definir como un listitem... no se... por favor AYUDA!
lvwmateriaprima.selecteditem.Index= ' el valor de la fila a seleccionar
Tampoco, por que el deja sombreada la fila que se utilizo por ultimo vez en lvwmateriaprima, no la que es igual a la que se indica en lvwmateriaprima1.
La idea es que realice el recorrido con el for each en lvw, cuando lo encuentre lo pueda sobmrear o seleccionar, esto no lo esta haciendo y el index de lvw1 es diferente a lvw, así se este hablando del mismo elemento.
Ayuda!
si recorres el listview con un for el va seleccionado cada vez que uno hace referencia a un list item , preguntas si es lo que estas buscando si lo es entonces te sales del for con exit for.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Trasladar datos de un listview a otro

Deseo trasladar datos de un lvw1 a lvw2, pero necesito que cuando esto ocurra, el dato que ha pasado a lvw2 quede seleccionado o sombreado. Por favor ayúdeme por que estoy desesperado con el tema...
1 respuesta

Multiplicar columnas de listview

Quiero multiplicar el valor de dos columnas de un LVW y mostrarlo en un textbox... Hago así pero no lo hace bien... ------------------------------------------ private sub cmdagregar_click() dim total as double With LVW2.ListItems.Add .Text =...
1 respuesta

Pasar elementos de un listview a otro listview VB6

Holiiiisss..! ¿Cómo debe ser la función para que pasar un elemento de un LVW a otro con un botón asignar? Este código tengo pero me da error... Me dice que el indice esta fuera de los términos...
1 respuesta

De listview a listview

Molestando de nuevo.. ¿Ja cómo debe ser la función para pasar un elemento de un LVW a otro con un botón asignar? Este código tengo pero me da error... Me dice que el indice esta fuera de los términos...
1 respuesta

DRAG & DROP en el mismo formulario

Tengo un problema al mandar filas completas de un listview a otro, estoy haciendo un drag-drop, pero al arrastrar la(s) filas del listview1 al listview2, solo me copia o me manda la los datos de la primera columna, y lo que yo necesito es poder...
1 respuesta

Agregar datos en SubItem en un ListView

Tengo un listView de dos columnas, la columna 1 la cargo con datos con un Command Buttom. Ahora Como puedo agregar datos en la columna 2 (SubItem), los datos los debo agregar desde un TextBox uno a uno hacia abajo. Este seria Mi listView COLUMNA1...
1 respuesta

Busqueda parcial en Listview

Necesito realizar una busqueda en un listview, pero quiero que sea una busqueda parcial para que no necesariamente tecleen todo el nombre para que lo pueda encontrar, mira este es mi codigo y funciona pero solo si capturan el nombre completo. Private...
1 respuesta

Control msflexgrid

Quisiera un pequeño empujoncito tengo un punto de venta los datos que busco en los text son agregados al msflex grid los datos que tengoi son artículos al cual tengo un text donde ingreso la cantidad y esa cantidad es multiplicada por el precio...
1 respuesta

Columnas repetidas en lisview1

Estoy usando Ado y trabajando con el ejemplo de la base de datos Biblio.mdb que viene con visual basic. Deseo que se muestren en un listview1 los datos de la consulta que hago en un select y esto lo hace bien y muestra los datos en el listview1, pero...
1 respuesta

¿Cómo añadir de un comboBox a un listview?

¿Me podes ayudar? Tengo 1combobox que cdo selecciono algo en el, me lo debe mostrar en el listview... Lo del combo lo traigo de una tabla y lo que me debe mostrar en el LVW es de otra.. Y me trae todo lo de la tabla, pero si selecciono otro item del...
1 respuesta