Con l'arrivo della Release 6.0 di Notes
finalmente è possibile modificare a proprio piacimento la SELECT FORMULA
di una vista...
Tutto ciò è possibile sfruttando la
proprietà nativa "SelectionFormula"
della classe NotesView.
Sinceramente non ne ero a conoscenza...leggendo
l'Help del designer me ne sono reso conto...
In Notes è proprio vero che c'è sempre
da imparare!!!
Ecco un esempio di codice preso in rete
su come debba essere utilizzata:
*************************************
Sub Initialize
Dim session As New NotesSession
Dim rightNow As New NotesDateTime(Now)
Dim db As NotesDatabase
Dim view As NotesView
Dim selection As String
Set db = session.CurrentDatabase
Set view = db.GetView("Last 14 Days")
Call rightNow.AdjustDay(-14)
selection = "SELECT @Created > @Date("
selection = selection & Cstr(Year(rightNow.LSLocalTime))
& "; "
selection = selection & Cstr(Month(rightNow.LSLocalTime))
& "; "
selection = selection & Cstr(Day(rightNow.LSLocalTime))
& ")"
view.SelectionFormula = selection
End Sub
*************************************
Selection FORMULA programmata in una vista!
- 05/30/2005
- 0 commenti
0 Commenti:
Nessun Commento Trovato