Listview vb6Résolu

Question

Bonjour,
j'ai un listview qui contient plusieurs lignes avec l'option Checkboxe = true
Mon traitement consiste a cocher des lignes de la listeview et récupérer le résultat de la base de données par exemple si je coche de ligne de la liste view, je dois récupérer le résultat de ces deux lignes cochées de la base de donnée, voila mon code mais ne marcha pas, svp je veux d'aide et merci d'avance:
private sub ma_procedure()
Dim i
'On Error Resume Next
Set rs1 = New Recordset
Call ConnectDB
If MsgBox("Voulez vous facturer les réservations", vbYesNo, "Confirmation") = vbNo Then
Exit Sub
End If
'While List1.SelectedItem.Checked
For i = 1 To List1.ListItems.Count
If List1.Checkboxes = True Then
rs1.Open "select distinct(MFT_AR_DETAILR_PRIXA),MFT_AR_DETAILR_YRES_ID,MFT_AR_DETAILR_PRIXB,MFT_AR_DETAILR_PRIXC,MFT_AR_DETAILR_PRIXT from  MFT_AR_DETAILR x  where x.MFT_AR_DETAILR_YRES_ID='" & List1.SelectedItem & "' and not exists (select * from MFT_AR_DETAILR y where MFT_AR_DETAILR_PRIXA is null and x.MFT_AR_DETAILR_YRES_ID=y.MFT_AR_DETAILR_YRES_ID)", db, adOpenDynamic, adLockOptimistic
'rs1.MoveFirst
Do While Not rs1.EOF
MsgBox rs1!mft_ar_detailr_prixa & vbTab & rs1!MFT_AR_DETAILR_YRES_ID
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing

End If
Next
end sub

Renfield · Accepted Answer

For i = 1 To List1.ListItems.Count 
    If List1.Checkboxes = True Then 
        ...
    End If
Next

ici, tu ne fais AUCUN lien entre i est le fait qu'un item d'indice i soit coché ou non.

il faudrait quelque chose comme: 
        For Each oItem As ListViewItem In ListView1.Items
            If oItem.Checked Then
                ...
            End If
        Next


Renfield - Admin CodeS-SourceS - MVP Visual Basic

cs_bargaoui · Answer

Merci Renfield, c'est tres gentil

Listview vb6

2 réponses

Votre réponse

Discussions similaires