thank you for reply
what, exactly, does not work in interactive change? it works but very slow

Anyway, I would no appreciate such time consuming stuff on every keystroke. It makes the interface slow if it rereads the data and rebuild the whole grid evertime.? any small example





>Mohammed,
>
>what, exactly, does not work in interactive change?
>
>Anyway, I would no appreciate such time consuming stuff on every keystroke. It makes the interface slow if it rereads the data and rebuild the whole grid evertime.
>
>Agnes
>>hi all,
>>
>>this code below works under event lostfocus is there away to works under event interactivechange or rewrite it
>>
>>

>>SET EXCLUSIVE off
>>SET EXACT on
>>SET TALK OFF
>>SET NOTIFY OFF
>>
>>
>>             lcName1 = alltrim(thisform.text1.value)
>>             lcName2 = alltrim(thisform.text2.value)
>>             lcName3 = alltrim(thisform.text3.value)
>>             lcName4 = alltrim(thisform.text4.value)
>>
>>DO case
>>
>>    CASE lcName1<>"" AND lcName2 <>""   AND lcName3 <>"" AND lcName4<>"" AND LEN(ALLTRIM(lcName1)) >= 3 AND LEN(ALLTRIM(lcName2)) >= 3 AND LEN(ALLTRIM(lcName3)) >= 3 AND LEN(ALLTRIM(lcName4)) >= 3
>>           Select F4,F1,name4,name3,name2,name1 from x2 where   name1=lcName1 AND name2=lcName2 AND  name3=lcName3 AND  name4=lcName4;
>>                                  into cursor lcResultTable
>>
>>
>>    CASE lcName1<>"" AND lcName2 <>""   AND lcName3 <>"" AND lcName4=="" AND LEN(ALLTRIM(lcName1)) >= 3 AND LEN(ALLTRIM(lcName2)) >= 3 AND LEN(ALLTRIM(lcName3)) >= 3
>>           Select F4,F1,name4,name3,name2,name1 from x2 where   name1=lcName1 AND name2=lcName2 AND  name3=lcName3 ;
>>                                  into cursor lcResultTable
>>
>>
>>
>>    CASE lcName1<>"" AND lcName2 <>""   AND lcName3 =="" AND lcName4==""  AND LEN(ALLTRIM(lcName1)) >= 3 AND LEN(ALLTRIM(lcName2)) >= 3
>>           Select F4,F1,name4,name3,name2,name1 from x2 where   name1=lcName1 AND name2=lcName2 AND  name3=lcName3;
>>                                  into cursor lcResultTable
>>
>>
>>
>>    CASE lcName1<>"" AND lcName2 ==""  AND lcName3 =="" AND lcName4==""  AND LEN(ALLTRIM(lcName1)) >= 3
>>           Select F4,F1,name4,name3,name2,name1 from x2 where name1=lcName1 ;
>>                                  into cursor lcResultTable
>>
>>    CASE lcName1<>"" AND lcName2 ==""  AND lcName3 =="" AND lcName4<>""  AND LEN(ALLTRIM(lcName1)) >= 3 AND LEN(ALLTRIM(lcName4)) >= 3
>>           Select F4,F1,name4,name3,name2,name1 from x2 where name1=lcName1 AND  name4=lcName4;
>>                                  into cursor lcResultTable
>>
>>
>>
>>    CASE lcName1<>"" AND lcName2 ==""  AND lcName3 <>"" AND lcName4==""  AND LEN(ALLTRIM(lcName1)) >= 3 AND LEN(ALLTRIM(lcName3)) >= 3
>>           Select F4,F1,name4,name3,name2,name1 from x2 where name1=lcName1 AND  name3=lcName3;
>>                                  into cursor lcResultTable
>>
>>
>>    CASE lcName1<>"" AND lcName2 ==""   AND lcName3 <>"" AND lcName4<>"" AND LEN(ALLTRIM(lcName1)) >= 3 AND LEN(ALLTRIM(lcName3)) >= 3 AND LEN(ALLTRIM(lcName4)) >= 3
>>           Select F4,F1,name4,name3,name2,name1 from x2 where   name1=lcName1 AND name3=lcName3 AND  name4=lcName4 ;
>>                                  into cursor lcResultTable
>>
>>
>>
>>  endcase
>>
>> GO top
>>                                         thisform.Grid1.RecordSource="lcResultTable"
>>                                         thisform.grid1.Visible=.t.
>>
>>

>>
>>thanks