I have a customized search form and a customized result form for Notes Client.
I want to sort the search result by the order in the view.
I added “&SearchOrder=4” in the “Qstrg” in the following code.
But it did not work.
Can I use “SearchOrder” only for Web Client ?
How to Keep current view order for Notes Client.
Here is my code:
Sub SearchField(SKey As String,SView As String,Field1 As String, Order As String)
Dim ws As New NotesUIWorkspace
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim sdoc As notesdocument
Dim srdoc As NotesDocument
Dim value As String
Dim temptxt As String
Dim Qstrg As String
Dim j As Integer
Dim rtitem As notesrichtextitem
Dim rtstyle As notesrichtextstyle
Set db=ss.CurrentDatabase
Set view = db.GetView(SView)
If SKey = “” Then
Messagebox “Please input keyword”
Exit Sub
End If
Set srdoc = New NotesDocument(db)
srdoc.Form=“SearchResults”
Set rtitem = New notesrichtextitem(srdoc, “SResult”)
Set rtstyle = ss.CreateRichTextStyle
rtstyle.Bold = False
rtstyle.FontSize = 10
rtstyle.NotesColor = COLOR_BLACK
rtstyle.NotesFont = FONT_HELV
rtstyle.Italic = False
Call rtitem.AppendStyle(rtstyle)
Qstrg = "FIELD " & Field1 & " CONTAINS " & SKey
j=view.FTSearch( Qstrg, 0 )
If j = 0 Then
Messagebox "No data "
Exit Sub
End If
Set sdoc = view.GetFirstDocument
For i = 1 To j
Call rtitem.AppendDocLink( sdoc, “” )
Call rtitem.addtab(1)
Call rtitem.appendtext(sdoc.PLastNameK(0) & " " & sdoc.PFirstNameK(0))
Call rtitem.addtab(1)
Call rtitem.appendtext(sdoc.Address(0))
Call rtitem.addnewline(2)
Set sdoc = view.GetNextDocument(sdoc)
Next
Call srdoc.Save(True,False)
Call ws.EditDocument(False, srdoc, True)
End Sub
Thanks in advance!
Rie