Do Case Case This.Caption="تعديل" This.Caption = "Save" Thisform.command30.Enabled = .T. Thisform.SetAll("Enabled",.T.,"textbox") Thisform.SetAll("Enabled",.T.,"COMBObox") Thisform.COMMAND18.Enabled=.t. SET FILTER TO TEL=THISFORM.TEXT2.VALUE Case This.Caption = 'Save' This.Caption = 'تعديل' cAlias = Thisform.DataEnvironment.InitialSelectedAlias Select (cAlias) If CursorGetProp("Buffering")> 1 =Tableupdate(1,.T.,cAlias) DO CASE CASE INLIST(Thisform.Optiongroup1.Value,1,2) REPLACE prior WITH 1 in (cAlias) CASE INLIST(Thisform.Optiongroup1.Value,3,4) REPLACE prior WITH 2 in (cAlias) CASE INLIST(Thisform.Optiongroup1.Value,5,6) REPLACE prior WITH 3 in (cAlias) ENDCASE Thisform.SetAll("Enabled",.F.,"textbox") Endif Thisform.command30.Enabled = .T. Thisform.SetAll("Enabled",.F.,"textbox") ENDCASE THISFORM.COMBO1.SetFocus()>Hi,
>DO CASE >CASE INLIST(Thisform.Optiongroup1.Value,1,2) > REPLACE prior WITH 1 (alias) >CASE INLIST(Thisform.Optiongroup1.Value,3,4) > REPLACE prior WITH 2 (alis) >ENDCASE >