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)
