Actually I was surprised today when I saw this, please check both scenarios:
In one scenario Call addone(i) it transmit I as reference in another one addone(i) - ByVal
Sub Click(Source As Button)
Dim i As Integer
Dim j As Integer
i = 1
For j = 0 To 10
Call addone(i) | addone(i)
Next
Print "i = " & i
End Sub
Sub addone(i As Integer)
i = i + 1
End Sub
Wednesday, December 10, 2008
Monday, December 01, 2008
MS ListView Control in LN
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()
Tuesday, November 11, 2008
Full Text message: Work area overflown due to many hits
Found strange error today in log database
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.
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.
Wednesday, November 05, 2008
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.
Thursday, October 23, 2008
Just found the test-exams for Lotus Notes R7
http://dpastov.googlepages.com/
btw, does somebody have free tests for Lotus Notes R8 ? :-)
btw, does somebody have free tests for Lotus Notes R8 ? :-)
Subscribe to:
Posts
(
Atom
)