Correction
DO CASE
CASE ALLTRIM(UPPER(THIS.COMMAND8.CAPTION)) = 'EDIT'
FOR START = 2 TO 16
THISBOX = 'THISFORM.RFI_TEXTBOX'+ALLTRIM(STR(START))+'.READONLY'
&THISBOX = .F.
ENDFOR
FOR START = 1 TO 3
THISBOX = 'THISFORM.RFI_TEXTBOX'+ALLTRIM(STR(STRART)<b>)</b>+'.READONLY'
&THISBOX = .F.
<b>ENDFOR</b>
THIS.COMMAND8.CAPTION = 'Save'
CASE ALLTRIM(UPPER(THIS.COMMAND8.CAPTION)) = 'SAVE'
BEGIN TRANSACTION
IF TABLEUPDATE()
END TRANSACTION
ELSE
ROLLBACK
MESSAGEBOX('Record could not be updated.',64,'Error Upating' )
ENDIF
THIS.COMMAND8.CAPTION = 'Edit'
ENDCASE
What is Wisdom?
Wisdom - The ability to respond to any situation according to God's Plan.
Therefore:
USE Wisdom IN Everything ORDER priority AS Knowledge
SELECT Knowledge
BROWSE FOR Understanding WHERE Wisdom=Guide
LeRoy Jackson
