IF thisform.text12.Value=val("x")&&no replace IF thisform.text12.Value=("x")&&no replace IF thisform.text12.Value="x"&&no replace replace prior WITH 1 endif IF thisform.text13.Value=val("x") replace prior WITH 2 endif IF thisform.text14.Value=val("x") replace prior WITH 3 endifall code
cAlias = Thisform.DataEnvironment.InitialSelectedAlias && This is generic code in this case it is set to "Sore" Select (cAlias) && Store Go BOTTOM Append Blank Thisform.Refresh() && thisform.command29.Caption ="Save" Thisform.SetAll("Enabled",.T.,"textbox") Thisform.SetAll("Enabled",.T.,"COMBObox") this.enabled = .f. thisform.text1.SetFocus() && Thisform.COMMAND18.Enabled=.t. Thisform.COMMAND19.Enabled=.t. Thisform.COMMAND20.Enabled=.t. IF thisform.text12.Value=val("x") replace prior WITH 1 endif IF thisform.text13.Value=val("x") replace prior WITH 2 endif IF thisform.text14.Value=val("x") replace prior WITH 3 endifthanks