MS ListView Control in LN

In one of our project we used MS ListView Control to show the data in one table. So here what we did. If you want try this approach also, you should do next steps:
Go to designer, create new form
click on menu: Create\Object and choose MS ListView Control.
Set name to this object and then you can do what you wish with this control, some code:

Dim control As Variant

Dim lwItem As Variant

Set control = source.getObject("ListView")

Set lwItem = control.ListItems.add(1, "a1", "fio2", 0)

Set lwItem = control.ListItems.add(2, "a2", "fio3", 0)

Set lwItem = control.ListItems.add(3, "a3", "fio4", 0)

Set lwItem = control.ListItems.add(4, "a4", "fio5", 0)

Call control.refresh()

Full Text message: Work area overflown due to many hits

Found strange error today in log database

GTR search error for "D:\Domino\data\mydatabase.ft\ftgi": Work area overflown due to many hits. Error-Number = 299: Full text error; see log for more information

The error occurs when I did NotesDatabase.FTSearch(query, 0)

query = (([Form]="AgrAddon") & ( ([AgrDate]=08.07.2005 & [AgrAddonDate]=25.06.2008 & !([AgrAddonNum]=("-" | "/")) )))

I've found that this problem happens because of this part of query: [AgrAddonNum]=("-" | "/")
Actually for some reason (I did not figure why) symbols - , ; : \ are the reasons of error in FTSearch. So I changed query a bit to avoid such situation and it worked well after all.

Defer index creation until first use + ENABLE_ON_DEMAND_COLLATIONS=1

In case if we would like to use "Defer index creation until first use" option in columns, we have to remember that it works only in case if Administrator set ENABLE_ON_DEMAND_COLLATIONS=1 in notes.

Just found the test-exams for Lotus Notes R7

http://dpastov.googlepages.com/

btw, does somebody have free tests for Lotus Notes R8 ? :-)

NotesDocumentCollection.IsSorted where I can use it?

I looked on this method many times and still don't understand where/how I can use it.
I really expected that new method NotesDocumentCollection.Sort(...) would in Lotus Notes later, but it did not happen. So how can I cook it? Can anybody explain me? What I see that we really can't sort collection at all...

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = db.FTSearch( "white wine", 0 )
If collection.IsSorted Then
Messagebox( "This collection is sorted" )
Else
Messagebox( "This collection is unsorted" )
End If
End Sub