Discussion :

[arindor]

Bonjour à tous
Le problème que j'ai est que ma listview ne m'affiche pas les enregistrements effectués.
La propriété view de la listview est en lvwreport. Les entêtes que j'ai choisies sont visibles. Mais lorsque j'ajoute des données la listview apparaît mé je ne vois pas ce que j'ai ajouté.

Merci d'avance

[LeForestier]

Bonjour,
Je vois pas bien, mais si tu souhaite une réponse donne un peu plus d'explications et un bout de code si possible.
A+

[arindor]

Voilà le code que j'ai mis

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
Private Sub ChargeListe()
 
Dim Docu As String
Dim LstItem         ' Pour affichage du résultat
'On efface la listView
    ListView.ListItems.Clear
    Tb.Requery
    On Error Resume Next
    ' tant qu'il y a un enregistrement l'afficher (fin du fichier)
    While (Not Tb.EOF)
      If (Tb.RecordCount <> 0) Then
          Set LstItem = ListView.ListItems.Add(, , CStr(Tb!id_agence), , Docu)
          LstItem.SubItems(1) = CStr(Tb!nom_agence)
          LstItem.SubItems(2) = CStr(Tb!code_sibanque)
          LstItem.SubItems(4) = CStr(Tb!nom_dr)
          LstItem.SubItems(3) = CStr(Tb!num_tel)
          LstItem.SubItems(5) = CStr(Tb!num_ipls)
          LstItem.SubItems(6) = CStr(Tb!loopback)
          LstItem.SubItems(7) = CStr(Tb!adresse_ipbri)
          LstItem.SubItems(8) = CStr(Tb!statut)
          LstItem.SubItems(9) = CStr(Tb!type_connexion)
          LstItem.SubItems(10) = CStr(Tb!type_nas)
          LstItem.SubItems(11) = CStr(Tb!prenom_gerant)
          LstItem.SubItems(12) = CStr(Tb!nom_gerant)
          LstItem.SubItems(13) = CStr(Tb!portable_gerant)
          LstItem.SubItems(14) = CStr(Tb!email_gerant)
          LstItem.SubItems(15) = CStr(Tb!observations)
      End If
      Tb.MoveNext
    Wend
AdjustColListView ListView, Me
 
End Sub

Au niveau de TabStrip j'ai mis

Code :

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

If TabStrip.SelectedItem.Index = 1 Then ListView.Visible = True: Picturefile.Visible = False: Call ChargeListe

[bricoyeye]

Code :

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

Dim LstItem As ListItem

Code :

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

ListView.ListItems.Clear

ListView est reservé, change de nom à ta ListView, ça peut poser probléme!

[arindor]

Code :

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

Dim LstItem As ListItem

Code :

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

ListView.ListItems.Clear

ListView est reservé, change de nom à ta ListView, ça peut poser probléme!

Bonjour

Merci pour ta réponse.
Mais excuse moi, ces codes je les mets où parce que je les ai déjà utiliser à part le premier que je viens de compléter.

Il n'ya pas de changement.
Je vais essayer de changer le nom de la listview pour voir.
Je te tiens au courant.
A+

[bricoyeye]

Salut,
as tu defini tes Columnheader?:

Code :

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

1
2
3
4
5
6
7
8
9
10
 LstView1.ColumnHeaders. _
   Add , , "nom agence", LstView1.Width / 4
   LstView1.ColumnHeaders. _
   Add , , "code_sibanque", LstView1.Width / 4
   LstView1.ColumnHeaders. _
   Add , , "nom_dr", LstView1.Width / 4
   LstView1.ColumnHeaders. _
   Add , , "tel", LstView1.Width / 4
   ' Définit la vue Détails.
  LstView1 .View = lvwReport

LstView1 étant le nom de la listview et 4 etant la division par le nombre de col, chez toi c'est 15 je crois (mais je crois qu'une listview ne peut pas avoir plus de 10, a voir!)

ensuite,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Not IsNull(Tb!nom_agence) Then
LstItem.SubItems(1) = CStr(Tb!nom_agence)
end if
If Not IsNull(tb!code_sibanque) Then
          LstItem.SubItems(2) = CStr(Tb!code_sibanque)
end if
If Not IsNull(Tb!nom_dr) Then
          LstItem.SubItems(3) = CStr(Tb!nom_dr)
end if
If Not IsNull(Tb!num_tel) Then
          LstItem.SubItems(4) = CStr(Tb!num_tel)
end if

si tu ne mets pas de verif, il y aura erreur, et le prochain affichage ne se fera pas!

[Cravis]

Si tes données s'affichent mais pas les ajouts c'est parce que ton record est déjà en fin de champ essaye en metant ça :

Code :

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

1
2
3
4
5
6
7
8
 
If (not Tb.BOF) then
    Tb.MoveFirst
    While (Not Tb.EOF)
        ...
      Tb.MoveNext
    Wend
End If

[arindor]

Bonjour
Juste pour vous remercier car avec votre aide j'ai résolu le problème.
MERCI BEAUCOUP.
Bonne journée.