hi

i try it but i see only number 1 and 2 at myfield but not 3

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,
>
>in that case you should wrap the value-assign in a 'do case...endcase' clause.
>
>

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