IListTextHeadingItems Property |
Get one member of this collection (one listtextitem), by index
The first member has index = 1
Use the count method to find how many items there are
Namespace: SuperOffice.COM.SuperOfficeDB
Get Items
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Dim headings Set objSO = CreateObject("SuperOfficeDB.Database") If not (objSO is nothing) Then objSO.Login "<USERID>", "<PASSWORD>" set headings = objSO.GetHeadings(130) for each head in Headings set collItems = head.Items for each item in collItems msg = msg & head.HeadingText & " - " & item.text msg = msg & chr(13) & chr(10) next next msgbox msg else MsgBox "Unable to connect to database" end if Set objSO = Nothing