I havent quite got the sorting thing figured out yet, but I can toggle ascending and descending on the Name column. Index ) fill edit controls End With End Sub. I add ListItems using the Name property and add SubItems 1 and 2 to hold the Department and Current properties. The default view is like the List view in Windows, where subitems are not shown. Setting View equal to lvwReport is similar (exactly) like choosing Details when youre viewing a Windows Explorer window. The HideColumnHeaders property is False by default, but I set it in code explicitly. ![]() ![]() I set the first two columns width equal to the controls above and just threw in a number for the Current column. In addition to filling the Department combobox, the Activate event adds three columns to the ListView via the ColumnHeaders.Add method. Records Print out the records to make sure I didnt miss something For i 1 To colRecords. ![]() Set colRecords New Collection Set colRecords FillRecords Create a new instance of the userform rather than relying on the default instance Set ufScroll New UScroll2 Load the records into a custom property of the userform Set ufScroll.Ĭode is suspended at this point Get the new records, if any, from the userforms property Set colRecords ufScroll.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |