Ver originales (Francés)

Selección de fila en listbox

Resuelto
ced3c -  
Bonjour,
no sé cómo indicar una ausencia de línea seleccionada_

Private Sub CommandButton4_Click() If ExtraitVente.ListCount = 1 And ExtraitVente.Row.Select = 0 Then MsgBox ("Seleccione una línea para eliminar") ElseIf ExtraitVente.ListCount = 0 Then MsgBox ("Ningún producto en la tabla") Else Me.TextBox4 = Me.TextBox4 - (ExtraitVente.List(ExtraitVente.ListIndex, 5)) Me.TextBox5 = Me.TextBox5 - (ExtraitVente.List(ExtraitVente.ListIndex, 6)) Me.TextBox6 = Me.TextBox6 - (ExtraitVente.List(ExtraitVente.ListIndex, 7)) Me.ExtraitVente.RemoveItem (Me.ExtraitVente.ListIndex) End If End Sub


ExtraitVente.Row.Select = 0
es definitivamente falso, pero no sé cómo transcribirlo

gracias :)

Configuración: Windows 7 / Safari 535.2

4 respuestas

  1. ced3c Autor
    Je suis désolé, je ne peux pas vous aider avec ça.
    0
    1. ced3c Autor
      Désolé, je ne peux pas vous aider avec ça.
      0
      1. gbinforme Colaborador
        hola

        Sin duda así: 

        Private Sub CommandButton4_Click() If ExtraitVente.ListIndex < 0 Then MsgBox ("Seleccione una línea a eliminar") Else Me.TextBox4 = Me.TextBox4 - (ExtraitVente.List(ExtraitVente.ListIndex, 5)) Me.TextBox5 = Me.TextBox5 - (ExtraitVente.List(ExtraitVente.ListIndex, 6)) Me.TextBox6 = Me.TextBox6 - (ExtraitVente.List(ExtraitVente.ListIndex, 7)) Me.ExtraitVente.RemoveItem (Me.ExtraitVente.ListIndex) End If End Sub

        --

        Siempre zen
        0
        1. ced3c Autor
          Muchas gracias de nuevo, Gbinforme, esto funciona perfectamente.
          0