I recently experienced an similar problem. The solution I found was to set
the next "start" parameter to a value equal to the row number of the first
result and increment it by one.
/*
Syntax
dwcontrol.Find ( expression, start, end )
*/
long ll_FoundMat=0
DO
ll_FoundMat=this.Find( 'isNull( '+MATCASENUM+' )', ll_FoundMat,
this.RowCount() )
IF ll_FoundMat > 0 THEN
this.SetRow( ll_FoundMat )
this.SetItem( ll_FoundMat, MATCASENUM , ll_CaseNum )
ll_FoundMat++
END IF
LOOP WHILE ll_FoundMat > 0
HTH
Lester LaForce
[EMAIL PROTECTED]
Sr. Software Developer (Contractor)
Future Technologies, Inc.
Armed Forces Institute of Pathology
Washington DC
-----Original Message-----
From: Francis [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 23, 2000 11:36 AM
To: [EMAIL PROTECTED]
Subject: Re: PFCSIG Find/Replace Service
The find service works with a popup window but when I find one result, the
find next operation stop always on the same row. I choose the next row with
the mouse or the keyboard and the find next works fine.
Why?
Francis
----- Original Message -----
From: Vachon, <mailto:[EMAIL PROTECTED]> Francois
To: 'Francis' <mailto:[EMAIL PROTECTED]>
Sent: Monday, October 16, 2000 7:16 PM
Subject: RE: PFCSIG Find/Replace Service
Probablement parce que t'as fen�tre et de type : "Response!". Donc une fois
qu'elle reprend le focus, et bien tu ne peux retourner � l'�cran
"Find/Replace" sans fermer ton �cran de type response.
Pour utili� cette fonctionnalit� des PFC, tu ne dois pas �tre dans une
fen�tre de type "Response!". Essai le type "Popup!" et �a devrait marcher.
Bonne chance.
-----Original Message-----
From: Francis [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]
Sent: Monday, October 16, 2000 10:01
To: [EMAIL PROTECTED]
Subject: PFCSIG Find/Replace Service
When I use the Find/Replace Service I cant return on the Find Window to
click on next.
Constructor script of the dw :
This.of_SetRowSelect(TRUE)
This.of_SetSort(TRUE)
This.of_SetUpdateable(FALSE)
This.inv_rowselect.of_SetStyle(This.inv_rowselect.SINGLE)
This.inv_sort.of_SetColumnHeader(TRUE)
This.inv_sort.of_SetVisibleOnly(TRUE)
This.SetReDraw(FALSE)
This.inv_sort.of_SetSort("c_dossier")
This.inv_sort.of_Sort()
This.SetRedraw(TRUE)
This.SetFilter("match(left(c_dossier,1),'A')")
This.Filter()
This.of_SetTRansObject(SQLCA)
This.of_retrieve()
This.of_SetFind(TRUE)
Script clicked in the Find button:
dw_choixdossier.Event pfc_finddlg()
What's wrong
Francis
> [EMAIL PROTECTED] HOSTED BY IIGG, INC. FOR HELP WITH LIST SERVE COMMANDS,
ADDRESS
> A MESSAGE TO [EMAIL PROTECTED] WITH THE FOLLOWING MESSAGE: help pfcsig
> SEND ALL OTHER INQUIRES TO [EMAIL PROTECTED]
> [EMAIL PROTECTED] HOSTED BY IIGG, INC. FOR HELP WITH LIST SERVE COMMANDS, ADDRESS
> A MESSAGE TO [EMAIL PROTECTED] WITH THE FOLLOWING MESSAGE: help pfcsig
> SEND ALL OTHER INQUIRES TO [EMAIL PROTECTED]
