ICriteriaEmpty Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Empty
Dim db As New Database If db.Login("<username>", "<password>") Then Dim selection As SOSelection = db.GetSelection(25) Dim msg As String If Not selection.Criteria.Empty Then For Each criterion As SOCriterion In selection.Criteria msg += criterion.fieldname & vbCrLf Next MsgBox(msg) Else MsgBox("selection contains no criteria") End If Else MsgBox("failed to log in") End If