Examples: IsField property (NotesViewColumn - LotusScript®)

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Forall vc In view.Columns
    title = vc.Title
    If title = "" Then title = "<No title>"
    If vc.IsField Then
      Messagebox "Column is based on field " & vc.ItemName,, _
      "Column " & vc.Position & " - " & title
    Elseif vc.IsFormula Then
      Messagebox "Column is based on formula:" & Chr(13) & _
      vc.Formula,, "Column " & vc.Position & " - " & title
    Else
      Messagebox "IsField and IsFormula are both False",, _
      "Error"
    End If
  End Forall
End Sub