Selezionare riga di una LISTABOX dopo averla filtrata .

Question

Buon giorno a tutti .

Ho un form come questo :

Dove se seleziono una qualsiasi delle righe riportate , le textbox si compilano regolarmente .

Il problema nasce quando applico con la combobox un filtro sull'intero database della ListBox , la visualizzazione è corretta ma le seleziono una qualsivoglia riga fra  quelle filtrate quanto visualizzato e sfalsato .

Il tutto perchè uso la proprietà ( . ListIndex ) che si aggiorna dopo la selezione  ma non ho idea di come fare altrimenti .

Per la selezione uso :  ( le combobox sotto riportate sono invisibili nel form )

 Private Sub ListBox2_Click()

ComboBox2.Text = ComboBox2.List(ListBox2.ListIndex)

ComboBox3.Text = ComboBox3.List(ListBox2.ListIndex)

ComboBox4.Text = ComboBox4.List(ListBox2.ListIndex)

ComboBox5.Text = ComboBox5.List(ListBox2.ListIndex)

ComboBox6.Text = ComboBox6.List(ListBox2.ListIndex)

ComboBox7.Text = ComboBox7.List(ListBox2.ListIndex)

ComboBox8.Text = ComboBox8.List(ListBox2.ListIndex)

ComboBox9.Text = ComboBox9.List(ListBox2.ListIndex)

TextBox3.Text = ComboBox2.List(ListBox2.ListIndex)

TextBox4.Text = ComboBox3.List(ListBox2.ListIndex)

TextBox5.Text = ComboBox4.List(ListBox2.ListIndex)

TextBox6.Text = ComboBox5.List(ListBox2.ListIndex)

TextBox7.Text = ComboBox6.List(ListBox2.ListIndex)

TextBox8.Text = ComboBox7.List(ListBox2.ListIndex)

TextBox9.Text = ComboBox8.List(ListBox2.ListIndex)

TextBox10.Text = ComboBox9.List(ListBox2.ListIndex)

End Sub

Mi sapete suggerire una soluzione ?

Grazie

Answer 1

Ciao Ivo,

Grazie Norman !

Prego!

===

Regards,

Norman

Answer 2

Ciao Ivo,

Prova a sostiuire:

Per la selezione uso :  ( le combobox sotto riportate sono invisibili nel form )

 Private Sub ListBox2_Click()

ComboBox2.Text = ComboBox2.List(ListBox2.ListIndex)

ComboBox3.Text = ComboBox3.List(ListBox2.ListIndex)

ComboBox4.Text = ComboBox4.List(ListBox2.ListIndex)

ComboBox5.Text = ComboBox5.List(ListBox2.ListIndex)

ComboBox6.Text = ComboBox6.List(ListBox2.ListIndex)

ComboBox7.Text = ComboBox7.List(ListBox2.ListIndex)

ComboBox8.Text = ComboBox8.List(ListBox2.ListIndex)

ComboBox9.Text = ComboBox9.List(ListBox2.ListIndex)

TextBox3.Text = ComboBox2.List(ListBox2.ListIndex)

TextBox4.Text = ComboBox3.List(ListBox2.ListIndex)

TextBox5.Text = ComboBox4.List(ListBox2.ListIndex)

TextBox6.Text = ComboBox5.List(ListBox2.ListIndex)

TextBox7.Text = ComboBox6.List(ListBox2.ListIndex)

TextBox8.Text = ComboBox7.List(ListBox2.ListIndex)

TextBox9.Text = ComboBox8.List(ListBox2.ListIndex)

TextBox10.Text = ComboBox9.List(ListBox2.ListIndex)

End Sub

Con:

'=========>>

Private Sub ListBox2_Click()

    Dim vArr As Variant

    Dim iIndex, i As Long

    With Me

        With .ListBox2

            vArr = .List

            iIndex = .ListIndex

        End With

        For i = 1 To 7

            .Controls("TextBox" & i + 3).Text = vArr(iIndex, i)

        Next i

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 3

Ciao Ivo,

Allego link ( https://drive.google.com/file/d/0BwOpqd7vczipWVdYYkZCVnc3S2M/view?usp=sharing )

Fammi sapere se è Ok 

Ho scaricato il tuo file e risponderò più tardi stasera.

===

Regards,

Norman

Answer 4

Grazie Norman , 

Allego link ( https://drive.google.com/file/d/0BwOpqd7vczipWVdYYkZCVnc3S2M/view?usp=sharing )

Fammi sapere se è Ok 

Grazie ancora

Answer 5

Ciao Ivo,

Ti chiederei gentilmente di caricare un file di esempio, privo dati sensibili, su un servizio di condivisione di file, per esempio Microsoft OneDrive o DropBox, e postare un link al file in una risposta qui.

Per caricare il file su Microsoft OneDrive, vedi:

https://support.office.com/it-it/article/Condividere-file-e-cartelle-di-OneDrive-9fcc2f7d-de0c-4cec-93b0-a82024800c07

Nel caso di DropBox, vedi:

https://www.dropbox.com/it/help/topics/sharing_files_and_folders

===

Regards,

Norman