Liste à plusieurs colonnes vb6 combobox, listbox...Résolu

Question

Bonjour,

J'essaie de faire (en plus d'une recherche par nom) une liste multiple composée des nom et prénom du client ainsi que du numéro de facture comme ci-après:  DUPONT Henri Facture N° 142

L'ajout, la suppression, la modification ainsi que la lecture se fait bien losrque ma liste est limitée à 1 seul champ (nom ou prénom par exemple) mais lors-ce-qu'elle est multiple, à l'initialisation (plus bas) les valeurs de tous mes champs concernant le client et  la facture n'apparaissent pas (comme s'il y avait un  problème d'indexation)
Par contre, ma liste affiche bien les champs demandés:     liste_nom.AddItem Trim(VarEnreg.ChampNom) '& " " &
Trim(VarEnreg.ChampPrénom) & " " & "-" & " " & "Facture
N°" & " " & Trim(NumEnreg) (DUPONT Henri Facture N° 142)

Private Sub btn_ajouter_Click()
Dim p As Integer
Open App.Path & "\FACTURES.tba" For Random Access Read Write As #1 Len = Len(VarEnreg)

NumRows = LOF(1) \ Len(VarEnreg)
                           
If txt_nom = "" Then
            frm_aide.Show
            frm_aide.lbl_aide_titre.Caption = "NOUVELLE FACTURE"
            frm_aide.lbl_aide.Caption = "Vous devez renseigner le nom du client !"
Else
If txt_adresse = "" Then
            frm_aide.Show
            frm_aide.lbl_aide_titre.Caption = "NOUVELLE FACTURE"
            frm_aide.lbl_aide.Caption = "Vous devez renseigner l'adresse du client !"
Else
If txt_ville = "" Then
            frm_aide.Show
            frm_aide.lbl_aide_titre.Caption = "NOUVELLE FACTURE"
            frm_aide.lbl_aide.Caption = "Vous devez renseigner la ville du client !"
Else
If txt_code_postal = "" Then
            frm_aide.Show
            frm_aide.lbl_aide_titre.Caption = "NOUVELLE FACTURE"
            frm_aide.lbl_aide.Caption = "Vous devez renseigner le code postal du client !"
Else

If txt_forme_juridique = "" Then
            frm_aide.Show
            frm_aide.lbl_aide_titre.Caption = "NOUVELLE FACTURE"
            frm_aide.lbl_aide.Caption = "Vous devez renseigner la forme juridique du client !"

Else

                            For p = 0 To 16
                                    VarEnreg.ChampMontant(p) = txt_montant(p)
                                    VarEnreg.ChampQuantite(p) = txt_quantite(p)
                                    VarEnreg.ChampPrixUnitaire(p) = txt_prix_unitaire(p)
                                    VarEnreg.Champ_ProduitPrestation(p) =                   txt_poduit_prestation(p)
                            Next p
                                    VarEnreg.ChampDate = lbl_date
                                    VarEnreg.ChampTVA = txt_tva
                                    VarEnreg.ChampMontantHT = txt_total_hors_taxe
                                    VarEnreg.ChampTotalChampTVA = txt_total_tva
                                    VarEnreg.ChampMontantTTC = txt_total_ttc
                     
                                    VarEnreg.ChampPrénom = txt_prenom
                                    VarEnreg.ChampAdresse = txt_adresse
                                    VarEnreg.ChampVille = txt_ville
                                    VarEnreg.ChampCodePostal = txt_code_postal
                                    VarEnreg.ChampEmail = txt_email
                                    VarEnreg.ChampNom = txt_nom
                                    VarEnreg.ChampPortable = txt_portable
                                    VarEnreg.ChampTelephone = txt_telephone
                                    VarEnreg.ChampFormeJuridique = txt_forme_juridique
                                    VarEnreg.ChampRemarque = txt_remarque
                                      
                                    VarEnreg.ChampQte = lbl_quantite
                                    VarEnreg.ChampPrix = p
                                    VarEnreg.ChampMontantTHT = lbl_montant_hors_taxe
                                    VarEnreg.ProduitPrestation = lbl_produit_prestation
                                    'Put c'est pour ajouter les infos txt_nom, txt_prenom, ... dans le fichier #1
                                    Put #1, NumRows + 1, VarEnreg

                                    txt_nom = ""
                                    txt_prenom = ""
                                    txt_adresse = ""
                                    txt_ville = ""
                                    txt_code_postal = ""
                                    txt_telephone = ""
                                    txt_portable = ""
                                    txt_email = ""
                                    txt_forme_juridique = ""
                                    txt_numero = ""
                                    txt_remarque = ""
                                    txt_code_client = ""

                            For g = 0 To 16
                                    txt_montant(g) = ""
                                    txt_quantite(g) = ""
                                    txt_prix_unitaire(g) = ""
                                    txt_poduit_prestation(g) = ""
                            Next g
                                    lbl_date.Caption = ""
                                    txt_total_hors_taxe.Text = ""
                                    txt_tva.Text = ""
                                    txt_total_tva.Text = ""
                                    txt_total_ttc.Text = ""
                                    txt_nom.SetFocus
    
    
            frm_aide.Show
            frm_aide.lbl_aide_titre.Caption = "ENREGISTREMENT"
            frm_aide.lbl_aide.Caption = "La facture a bien été enregistrée !"

    End If
    End If
    End If
    End If
    End If

Close #1

Open App.Path & "\FACTURES.tba" For Random Access Read As #1 Len = Len(VarEnreg)

NumRows = LOF(1) \ Len(VarEnreg)
liste_nom.Clear
For i = 1 To NumRows
Get #1, i, VarEnreg
    liste_nom.AddItem Trim(VarEnreg.ChampNom) '& " " & Trim(VarEnreg.ChampPrénom) & " " & "-" & " " & "Facture N°" & " " & Trim(NumEnreg)
Next i

For i = 1 To NumRows
Get #1, i, VarEnreg
Next i
Close #1

End Sub

Je vous remercie de m'éclairer s'il vous plaît.

@pluche

Nadia

Renfield · Accepted Answer

pourquoi ne pas utiliser un ListView ?

c'est simple a utiliser, et adapté a ton cas

AndreBourvil · Answer

Bonsoir,

Merci pour ta réponse, je vais essayer. A vrai dire je croyais que le ListView était "réservé" au objets mais pas pour le texte.

@+

Nadia

Liste à plusieurs colonnes vb6 combobox, listbox...

2 réponses

Votre réponse

Discussions similaires