So let's say I have to use a scriptblock for some function. if i write that command inside the query function, it will load that object again and again for all the rows, is there a way to define this object(scriptblock/bas object) in such a way that it is executed only once ?

If i write the command outside the function scope, the program clears the script so that only default function remains, unless I define one customized function.

MCGA

Hi
do you know the script functions in the options tab? Maybe you can execute a script there once..
BR

 Yes, but the variables declared there are not accessible in query column scripts (unless I use workset.globals which I want to avoid)

I can think of three options, no of which are perfect:

1. Use Workset.Globals (but I guess you want to avoid that). This is my usual method, as it is the most universally applicable.
2. Set the object that is needed for each row as the MainObject in AfterGetOrigCollection.  This is readily accessible from Query Column scripts,but obviouslty has some major downsides, and really only works in very special cased (For instance, if you can set that object as the MainObject to start with and then use "AfterGetOrigCollection" to get to the infomarion you want loaded in the query.)
3. Use AfterGetOrigCollection to create a kDictionary for the OrigCollection. For each RowObject, have a kDictionary with two items, "RowObject", and "HelperObject".  You will need to make a Column with a ColumnObject script to get the RowObject to be the Master column for your normal Columns, and another one that can retrieve your stored HelperObject.

Sub AfterGetOrigCOllection

'---------------------------

intCount = OrigCollection.count

Set kDicOC = CreateObject("ComosKDictionary.kDictionary")

Set objHelper = GetMyHelperObjectJustThisOnce()

For i = 1 To intCount

Set RowObj = OrigCollection.item(i)

Set kDIcRow = CreateObject("ComosKDictionary.kDictionary")

kDicRow.add "RowObject", RowObj

kDicRow.add "HelperObject", objHelper

kDicOC.add i, kDicRow

Next

Set OrigCollection = kDicOC

End Sub

'---------------------------

Function ColumnObject(RefColObject, BaseRowIndex, BaseColumnIndex)

'Get normal RowObject

Set objRowObject = RefCOlObject.ItemByKey("RowObject")

End Function

'---------------------------

Function ColumnObject(RefColObject, BaseRowIndex, BaseColumnIndex)

'Get normal RowObject

Set objHelper = RefColObject.ItemByKey("HelperObject")

End Function