What didn't work? Did you get an error message? Did you get unexpected results?
>thank you for reply,
>
>this part did not work,
>
>IF thisform.text12.Value=("x")
> REPLACE PRIOR WITH 1
>ENDIF
>
>IF thisform.text13.Value=("x")
> REPLACE PRIOR WITH 2
>ENDIF
>
>IF thisform.text14.Value=("x")
> REPLACE PRIOR WITH 3
>ENDIF
>>thanks
>
>>So what is the question? Does the code work? If not, what is the problem?
>>
>>>hi all,
>>>
>>>i need to use this code for append new records or modify .
>>>
>>>Do Case
>>>Case This.Caption="EDIT"
>>> This.Caption = "Save"
>>> Thisform.command30.Enabled = .T.
>>> Thisform.SetAll("Enabled",.T.,"textbox")
>>> Thisform.SetAll("Enabled",.T.,"COMBObox")
>>> Thisform.COMMAND18.Enabled=.t.
>>>
>>>Case This.Caption = 'Save'
>>> This.Caption = 'EDIT'
>>> cAlias = Thisform.DataEnvironment.InitialSelectedAlias
>>> Select (cAlias)
>>> If CursorGetProp("Buffering")> 1
>>> =Tableupdate(1,.T.,cAlias)
>>>IF thisform.text12.Value=("x")
>>>REPLACE PRIOR WITH 1
>>>ENDIF
>>>
>>>IF thisform.text13.Value=("x")
>>>REPLACE PRIOR WITH 2
>>>ENDIF
>>>
>>>IF thisform.text14.Value=("x")
>>>REPLACE PRIOR WITH 3
>>>ENDIF
>>> Thisform.SetAll("Enabled",.F.,"textbox")
>>>
>>> Endif
>>> Thisform.command30.Enabled = .T.
>>> Thisform.SetAll("Enabled",.F.,"textbox")
>>> ENDCASE
>>>
>>>>>>
>>>THANKS
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
