Gentlemen,

I have an editable which has some columns protected and some columns in which user enter data. However, I want to disable the Delete and Insert keys. Is there any way to do this while allowing data entry?

The current code takes a edit table (BUYCASE.STORE) which has 2 protected columns and inserts some unprotected columns for data entry.

colchars=6

colwidth=22

styles=Send_Message('BUYCASET.STORE', "COLSTYLE", 1, ) styles=styles - 8 ; * unprotect stores * insert columns for each store cnt=Count(WV_STORE%,@FM) + (WV_STORE% # )

For col=1 to cnt

coldesc=WV_STORE% :@fm: styles :@fm: colchars :@fm: colwidth

x=Send_Message('BUYCASET.STORE',"INSERTCOL",col+1, coldesc)

Next x

Thanks in advance!

Blair-

In the EditTable control, click on the more button, and check the Protected box. This should disallow the Insert and Delete keys, right? Is this what you're after?

Hope it Helps-

Mike Ruane

WinWin Solutions Inc.

WWW.WinWinSol.Com

Hello Mike,

Checking 'Protected' from the 'More Edit Table Properties' disables data entry to the editable. I need to be able to enter data in all columns between the first and last columns - but I don't want users to press Del or Ins keys, thereby deleting or inserting rows.

Checkout Robert Lee's posting of a couple of days ago here

This shows how to do it.

The Sprezzatura Group

World Leaders in all things RevSoft

Protected from the "More" dialog does not prevent entry … it just prevents rows from being added and removed. There is also a Protected option per column which prevents edits on that particular column.

Cameron Purdy

Revelation Software

I've added this code to the form's create event:

* disable insert and delete keys

ETstyle=.STORE-]STYLE

If ETstyle1,2=0x' Then

convert @lower.case to @upper.case in ETstyle

ETstyle=Iconv(ETstyle3,99, "MX")

End

new.style=bitand(ETstyle,bitnot(4))

.STORE-]STYLE=new.style

This code, when inserted, does prevent the use of Ins and Del keys, but unfortunately, the user cannot modify the edit table.

Cam, setting Protected from 'More' on my 3.72 system has the same affect as the above code - can't add or modify data.

Worth mentioning,perhaps, is that I start with an edit table with 2 columns which are protected. Then I use this code to insert columns:

* insert columns for each store

cnt=Count(WV_STORE%,@FM) + (WV_STORE% # '')

* # cols to insert

* styles is colstyle of column 1 but unprotected.

For col=1 to cnt

coldesc=WV_STORE% :@fm: styles :@fm: colchars :@fm: colwidth

x=Send_Message('BUYCASET.STORE',"INSERTCOL",col+1, coldesc)

Next x

Still stumped, but appreciative of your quick response.

Cam,

For some reason, on my system, this setting also protects the data in the edit table. Please see prior post.

Never mind Men!

The problem had to do with adding columns on the fly. I've found a workaround or a way to get the intended effect. I make the first column UNprotected, set "MORE" to Protected - then compile window.

After I insert the columns, I set the style of first column to protected.

Thanks,

Blair

View this thread on the forum...