Examples: GetFieldType method

This agent displays the types of all the fields in the "Main Topic" form.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim form As NotesForm
  Set form = db.GetForm("Main Topic")
  Forall field In form.Fields
    Select Case form.GetFieldType(field)
    Case AUTHORS : fieldType = "Authors"
    Case DATETIMES : fieldType = "DateTime"
    Case NAMES : fieldType = "Names"
    Case NUMBERS : fieldType = "Number"
    Case READERS : fieldType = "Readers"
    Case RICHTEXT : fieldType = "Rich text"
    Case TEXT : fieldType = "Text"
    Case Else
      fieldType = "Other " & form.GetFieldType(field)
    End Select
    Messagebox fieldType,, field
  End Forall
End Sub