LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim vc As NotesViewColumn Dim f As String Set db = session.CurrentDatabase Set view = db.GetView("View A") Set vc = view.Columns(1) If vc.NumberFormat = VC_FMT_GENERAL Then vc.NumberFormat = VC_FMT_FIXED f = "Fixed" Elseif vc.NumberFormat = VC_FMT_FIXED Then vc.NumberFormat = VC_FMT_CURRENCY f = "Currency" Elseif vc.NumberFormat = VC_FMT_CURRENCY Then vc.NumberFormat = VC_FMT_SCIENTIFIC f = "Scientific" Else vc.NumberFormat = VC_FMT_GENERAL f = "General" End If Messagebox f,, "New number format" End Sub
See Also