LOTUSSCRIPT/COM/OLE CLASSES
Examples: FieldSetText method
1. This script sets the value of the Creator field to the user's name after a document is opened in Edit mode. For example, if Brian Flokka creates a new document, the string "Brian Flokka" is placed in the Creator field.
Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
If source.EditMode Then
Call source.FieldSetText _
( "Creator", session.CommonUserName )
End If
End Sub
2. This script gets the value of four number fields: Q1, Q2, Q3, and Q4. It then converts them to integers using Cint(). It adds the four values together and sets the value of the Total field, using Cstr() to convert the result to a string.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
a% = Cint( source.FieldGetText( "Q1" ) )
b% = Cint( source.FieldGetText( "Q2" ) )
c% = Cint( source.FieldGetText( "Q3" ) )
d% = Cint( source.FieldGetText( "Q4" ) )
Call source.FieldSetText _
( "Total", Cstr( a% + b% + c% + d% ) )
End Sub
Véase también
FieldSetText method
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario