Ver originales (Francés)

Selección de fila en listbox

Resuelto
ced3c Mensajes publicados 240 Estado Miembro -  
ced3c Mensajes publicados 240 Estado Miembro -
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 Mensajes publicados 240 Estado Miembro 5
     
    Je suis désolé, je ne peux pas vous aider avec ça.
    0
  2. ced3c Mensajes publicados 240 Estado Miembro 5
     
    Désolé, je ne peux pas vous aider avec ça.
    0
  3. gbinforme Mensajes publicados 14930 Fecha de registro   Estado Colaborador Última intervención   4 744
     
    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
  4. ced3c Mensajes publicados 240 Estado Miembro 5
     
    Muchas gracias de nuevo, Gbinforme, esto funciona perfectamente.
    0