Explications sur listview

Hello,

Avec la V6 des common controls, il faut utiliser item et subitems:
Private Sub Form_Load()
ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "Col1"
ListView1.ColumnHeaders.Add , , "Col2"

Dim li As ListItem

Set li = ListView1.ListItems.Add(, , "Test")

'Définir quelques propriétés de l'item
li.Bold = True

'Deuxième colonne
li.ListSubItems.Add , , "Colonne2"

'Ou plus simplement
ListView1.ListItems.Add(, , "2.1").ListSubItems.Add , , "2.2"

End Sub

Avec la V5, tu peux faire ceci:
ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "Col1"
ListView1.ColumnHeaders.Add , , "Col2"

Dim li As ListItem

Set li = ListView1.ListItems.Add(, , "1.1")
li.SubItems(2) = "1.2"

'Ou plus simplement
ListView1.ListItems.Add(, , "2.1").SubItems(1) = "2.2"


--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:27e0401c46400$5bbc4820$a501280a@phx.gbl

Je souhaite faire des statistiques sur le temp de travail
de personnes.
J ai bien ajouter toutes ces personnes dans une colonne d
un listview a l aide de DAO .
Maintenant j ai des taches alloué a ces personnes et je
voudrai que dans une autre colonne du listview un 1 soit
affiché a coté du nom de la personne a qui on a allou" la
tâche.

j ai deja fait ce genre de chose

Regarde mon code :

Private Sub ReyCommand1_Click()
Dim intDay1 As Integer
Dim intDay2 As Integer
Dim diff As Integer
Dim numjour As Integer
Set db2 = Nothing
Set db2 = DAO.Workspaces(0).OpenDatabase
("D:$DocViewIntranetWeb$Data$Database" & "" &
dbname2, False, False)
Dim rs As DAO.Recordset
Dim item As ListItem
View1.ListItems.Clear
View1.ColumnHeaders.add , , "Nom du membre CSC",
View1.Width / 5
Set rs = db2.OpenRecordset("SELECT * FROM [$CSC_People]
ORDER BY FullName ")

Do While Not rs.EOF
Set item = View1.ListItems.add(, ,
rs.Fields("FullName").Value & vbCtrln)
Set item = View1.ListItems.add(, , " ")
rs.MoveNext
Loop

intDay1 = Day(Combo1.Text)
intDay2 = Day(Combo2.Text)
diff = intDay2 - intDay1 + 1
numjour = diff
Do While diff > 0
View1.ColumnHeaders.add , , "jour n°" & numjour -
diff + 1, , 2
item.SubItems(1) = "coucou"
diff = diff - 1
Loop
View1.ColumnHeaders.add , , "Total", , 2
View1.ColumnHeaders.add , , "Coût", , 2
View1.ColumnHeaders.add , , "Facturation", , 2

End Sub


Le code m ajoute bien les colonnes q il fau avec dans la
premiere tous les noms des personnes

ensuite quand je fait item.Subitems(1) = "Coucou" par
exemple, il me l ajoute dans la deuxieme colonne, ce qui
est normal, mais apres touts les noms de la premiere
colonne alors que moi je ve q il s affiche a coté du
premier nom, par exemple....

Fabrice.

-----Message d'origine-----
Hello,

Avec la V6 des common controls, il faut utiliser item et

subitems:

Private Sub Form_Load()
ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "Col1"
ListView1.ColumnHeaders.Add , , "Col2"

Dim li As ListItem

Set li = ListView1.ListItems.Add(, , "Test")

'Définir quelques propriétés de l'item
li.Bold = True

'Deuxième colonne
li.ListSubItems.Add , , "Colonne2"

'Ou plus simplement
ListView1.ListItems.Add

(, , "2.1").ListSubItems.Add , , "2.2"

End Sub

Avec la V5, tu peux faire ceci:
ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "Col1"
ListView1.ColumnHeaders.Add , , "Col2"

Dim li As ListItem

Set li = ListView1.ListItems.Add(, , "1.1")
li.SubItems(2) = "1.2"

'Ou plus simplement
ListView1.ListItems.Add(, , "2.1").SubItems(1)

= "2.2"

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" <anonymous@discussions.microsoft.com> a

écrit dans le

message de news:27e0401c46400$5bbc4820$a501280a@phx.gbl

Je souhaite faire des statistiques sur le temp de

travail

de personnes.
J ai bien ajouter toutes ces personnes dans une

colonne d

un listview a l aide de DAO .
Maintenant j ai des taches alloué a ces personnes et je
voudrai que dans une autre colonne du listview un 1

soit

affiché a coté du nom de la personne a qui on a allou"

la

tâche.

.