can anybody tell me how should i fill supplier name .in a list view using collection.here is the code what i have written.any help would be highly app
reciated.
Private Sub Command1_Click()
Dim Item As ListItem
Dim supp As Supplier 'object for class
Set supp = New Supplier
Set supp = m_Suppliers.Item(supp.Key) 'm_suppliers is a object for collection
If Not supp Is Nothing Then
For Each supp In m_Suppliers 'we check each supplier in a collection
Set Item = ListView1.ListItems.Add(supp)
Item.SubItems(1) = supp.SupName
Item.SubItems(2) = supp.Supid
Next
End If
End Sub