>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
>>>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 >>> >>>>>>