General information
Category:
Coding, syntax & commands
>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
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only