Jabaco Source

Public Function description() As String
   Dim s As String = ""
   Dim slst As String 
   Dim i As Integer 
   Dim k As Integer 
   Dim bMulti As Boolean 
   Dim idx() As Integer 
      
   If List1.ListIndex > 0 Then
      '  one or more fields <> "-" selected
      idx = List1.Parent.getSelectedIndices
      bMulti = UBound(idx) > LBound(idx)
      
      If bMulti Then
         s = Trim(Label1.Caption) & " IN (" 
         For i = LBound(idx) To UBound(idx)
            If Right(s, 1) <> "(" Then
               s = s & ", "
               If i Mod 8 = 0 Then
                  s = s & "<BR/>" & "    "
               End If
            End If
                                       
            s = s & "'" & List1.List(idx(i)) & "'"
         Next i   
         s = s & " )"
      Else
         slst = List1.List(idx(Lbound(idx)))
         s = Trim(Label1.Caption) & " = '#MA" & slst & "#MB'"
      End If      
   End If
   
   description = s
End Function

Public Sub reset
   List1.ListIndex = 0
   List1.Parent.clearSelection 
End Sub

Public Sub selectText(text As String)
   Dim i As Integer 
   
   reset
   
   For i = 0 To List1.ListCount - 1
      If List1.List(i) = text Then
         List1.ListIndex = i
         Exit For
      End If
   Next i
End Sub

Public Function text() As String
   If List1.ListIndex < 0 Then
      text = ""
   Else
      text = List1.List(List1.ListIndex)
   End If
End Function