Discussion :

[r.mehdi]

salut je devellope avec Vb6 j'ai une table Commande qui porte 5 champs
(numAuto, N°Commande(num_cde), Designation(desig_cde), Quantité(qt_cde), Prix unitaire(pu_cde)).
Le client peux effectuer Plusieur Commande alors j'me suis servis du LISTVIEW
pour voir ce que l client a commander ainsi modifier la colonne du quantité (dans listview) si client a changer d'avis et apres faire le Montant total
j'ai fé ce code mais il lui manque le reste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Dim base as database
Dim E_command as recordset
Private sub Form1_load()
set Base = openrecordset(App.path & "\gestion commercial.mdb")  'chemin du BDD
set E_command=base.openrecordset("commande") 'ouverture d table commande
with listview1.columnheaders 'Conception l'Entête du Listview
.add="N°Command"
.add="Designation"
.add="Quantité"
.add="Prix unitaire"
.add="Montant"
listview1.view=3
End with 
with E_command   ' l'autoIncrementation sur le champs num_auto
if not .eof then
.moveLast
label5=!num_auto+1
else
label5=1
end if
end with
End sub
 
Private sub cmdAjout_click
aj=msgbox("ajout dans listview",vbyesno")
if aj=6 then
'le Code necessair Pour l'ajout dans listview
End sub
 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case Is = 1 'Ajout des informations dans la table Commande
va = MsgBox("Voulez-vous Vraiment" & Chr(13) & "valider Ses Informations??", vbYesNo + vbInformation, "Confirmation")
If va = 6 Then
 
SQL = "insert into commande & _
" values( '" & maskedbox1 & "' , '" & text1 & "' , " & text2 & " , " & text3 & ")"
base.Execute SQL
End If
Label5 = Val(Label5) + 1 
 
end select

Remarque:
pour l'ajout dans la table commande Ce code valide uniquement le premier enregistrement du commande dans listview
pourez vous m'aidez svp

[Vld44]

Salut Mehdi !

Alors voilà vite fait les grandes lignes du listview :

- Chaque ligne est représentée par son objet de type ListItem, dont le contenu sera affiché sur la 1° colonne de la ligne
- Chaque ListItem est défini par une clé (key), un content, et éventuellement une icône
- Chaque ListItem peut avoir des ListSubItems, qui représentent les colonnes au delà de la première
- Chaque colonne est définie par les ColumnHeaders du ListView

Concrètement, une fois que tu as défini dynamiquement ou en dur les colonnes de ton listview, procède ainsi pour chaque ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set monListItem = ListView.Listitems.Add(..., ...)
monListItem.ListSubItems.Add ... ' à répéter pour chaque colonne au delà de la première

En espérant que cela puisse t'aider.

[r.mehdi]

Wé Merci ca M'a aidé vraiment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim mt,tm,mtr as Integer   'variable mt=mt , tm=total Montant , mtr=Montant Restant
Private Sub Form1_load()
With ListView1.ColumnHeaders 'Conception L'entête du Listview1
.Add = "N°Commande"
.Add = "Nom Client"
.Add = "Code Client"
.Add = "Code Article"
.Add = "Designation"
.Add = "Prix Unitaire"
.Add = "Quantité"
.Add = "Montant"
 
End With
ListView1.View = 3
mt = 0: tm = 0  'Par defaut La valeurdu Montant et total Montant c'est 0
Private Sub Command1_click()
va = MsgBox("Voulez_vous Vraiment Valider La Commande??", vbYesNo + vbInformation, "VALIDATION")
If va = 6 Then
mt = Val(Text2) * Val(Text7)   'calculer le Montant
tm = tm + mt   'calculer Le Total Montant des Commandes
Set l = ListView1.ListItems.Add(, , Combo1)
l.SubItems(1) = Text5    'pour ajout N°command
l.SubItems(2) = Text6    'pour ajout Nom Client
l.SubItems(3) = Combo3  'Pour ajout du Code Client
l.SubItems(4) = Text1    'Pour ajout du code Article
l.SubItems(5) = Text2    'Pour Ajout du Designation'
l.SubItems(6) = Text7    'Pour ajout Prix unitaire
l.SubItems(7) = mt        'Pour ajout Quantité
Label27 = tm                'Affichage Du Total Montant dans Label27
End If
End Sub

sa marché bien pour l'ajout
Mais Maintenant comment j'peux supprimer un Item dans Listview?
ainsi Comment J'peux avoir l'accée a Listview Si je veux Modifier une colonne j'ai fé ce Code Pour la Suppression Mais il est pas efficace 100%

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private sub Supprimer_Click()
tm=tm-mt  
listview1.ListItems.Remove(1) 
End Sub

ce code sa marche Mais pas parfaitement comme j'espere je veux par exemple j'ai 4 Commande ajouter dans mon listview je veux avoir le choix de suprimer une de ses 4 Command
avez vous une Idée pour M'aider sur Ca