>>Hi Richard,
>>Me either didn't see any need for lLastSelected but I thought at start it would be needed. Futher there is no need for lSelected too. Deleted() works good. Today I played with it more and wrote somewhat similar to yours. I'll pass it to files section when fully finished. Currently trying to add per column incremental search capability + headers from dbc.
>>Cetin
>
>
>I used the following code to set the header caption:
>
> * Open database where employee resides
> open database (db.dbc)
> for ix=1 to .columncount
> .columns(ix).removeobject("Text1")
> .columns(ix).addobject("myTextBox","myTxtBox")
> .columns(ix).currentcontrol = "myTextBox"
> .columns(pni).header1.caption = dbgetprop(strtran(upper(.columns(pni).controlsource), upper(tcSelector + '.'), employee + '.'), 'Field', 'Caption')
>
> endfor
>
>I briefly tried fooling with the keypress event(added the procedure) of the mytxtbox definition to create an incremental search but I did not achieve anything. You can use the chr() function convert the parameter of the event to a character and do a locate on that control source with that character. The problem I got was the data entered stayed in the field and when non-alphanumeric keys like the down/up arrows, etc. are pressed how would you trap for them? Certainly you could create a procedure to only search for alphanumeric which may have to be done.
>
>Richard
Richard,
It's nearly done. When finished will deliver to you too.
Cetin