Ho paura che la funzione che vuoi utilizzare [b]SelectionFormula[/b] sia
valida solo nella R6.
Cmq sia...dovresti passare per le API per fare ciņ che chiedi utilizzando
***********************
Declare Function NSFFormulaCompile Lib "nnotes.dll" _
(Byval FormulaName As Lmbcs String, _
Byval FormulaNameLength As Integer, _
Byval FormulaText As Lmbcs String, _
Byval FormulaTextLength As Integer, _
rethFormula As Long, _
retFormulaLength As Integer, _
etCompileError As Integer, _
retCompileErrorLine As Integer, _
retCompileErrorColumn As Integer, _
retCompileErrorOffset As Integer, _
retCompileErrorLength As Integer) As Integer
************************
Ho trovato poi anche questo esempio ma non l\'ho ancora testato
*************************
Dim session as New NotesSession
Dim workspace as New NotesUIWorkspace
Dim database as NotesDatabase
Dim view as NotesView
Dim viewDocument as NotesDocument
Dim selectionFormula as String
Set database=session.CurrentDatabase
Set view=database.GetView("tempView")
Set viewDocument=database.GetDocumentByUNID(view.UniversalID)
selectionFormula$=|Select Form="tempForm"|
If Not viewDocument is Nothing then
call viewDocument.replaceItemVale("$Formula",selectionForuma$))
viewDocument.save true,false
End if
Call view.Refresh
Call workSpace.PickListCollection(CUSTOM,0,"","","tempView")
************************
Daniele Grillo - Fondatore di Dominopoint.it
|