la questione è sempre la stessa...
lato web la risolvo facilmente... ma lato client sono info..gnatissimo
passando tra un pò di teoria mi sono imbattuto sul l\'HELP di NOTES
all\'argomento "Customizing search forms"
con in seguente esempio (che tra l\'altro è l\'unico documento di HELP dove
vengono citati q=doc.query(0),l=doc.resultlimit(0), d=doc.MaxDisplay(0),sort =
doc.sort(0),usestr = doc.use)...
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim w As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim q As String
Dim l As Integer
Dim d As Integer
Dim sort As String
Dim stype As Integer
Dim useint As Integer
Dim rtype As String
Dim rformname As String
Set db=s.CurrentDatabase
Set uidoc = w.currentdocument
uidoc.refresh
Set doc=uidoc.Document
q=doc.query(0)
l=doc.resultlimit(0)
d=doc.MaxDisplay(0)
sort = doc.sort(0)
usestr = doc.use
sscope=doc.searchscope
rtype=doc.GetItemValue("SearchType")(0)
If rtype = "1" Then
rformname="DetailedResultEntry"
Else
rformname="ResultEntry"
End If
Select Case sort
Case "R"
stype = FT_SCORES
Case "O"
stype = FT_DATE_ASC
Case "N"
stype = FT_DATE_DES
End Select
Forall values In usestr
If values = "2" Then useint = useint + FT_STEMS
If values = "3" Then useint = useint + FT_FUZZY
End Forall
Forall values In sscope
If values = "1" Then useint = useint +FT_DATABASE
If values = "2" Then useint = useint +FT_FILESYSTEM
End Forall
On Error Resume Next
If db.isopen Then
If Err <> 0 Then
Messagebox STR_DBOPEN_ERROR
Err = 0
Exit Sub
End If
Set srdoc = db.ftdomainsearch(q, l, stype,useint, 0,d,rformname)
If Err <> 0 Then
Messagebox STR_FTERROR_PREFIX & Error$, 0 , STR_ERROR
Err=0
Exit Sub
End If
srdoc.Form="SearchResults"
Call w.EditDocument(False, srdoc, True)
End If
End Sub
questo passaggio
-->Set srdoc = db.ftdomainsearch(q, l, stype,useint, 0,d,rformname)<--
fondamentale mi và in errore..perchè mi vannoin TypeMissMatch L e D
l=doc.resultlimit(0)
d=doc.MaxDisplay(0)
già nell\'assegnazione al dire il vero...
possibile che indicizzato il db non ci sia un esempio semplice per fare una
form di ricerca?
AIUTATEMIIIIIIII please
|