hi,
thank you,it works.

>The trouble is that the table ALREADY HAS a record whose SHIPNO = the value you have in thisform.text1.value.
>I presume that ShipNo is the primary key (PK) of your table and is therefore meant to be unique.
>
>You COULD make ShipNo an integer, AutoInc field. Otherwise you need to check the table to ensure that there isn't a record with the new pk already.
>
>>hi all,
>>
>>any idea ,help
>>
>>i try to run save command, i have error message Uniqueness of index "shipno" is violated
>>

>>Append From Dbf('temp')
>>

>>
>>this is the code
>>

>>cAlias = Thisform.DataEnvironment.InitialSelectedAlias
>>Select (cAlias)
>>IF act_flag="1"
>>     GO BOTTOM
>>      LOCATE FOR UPPER(shipno)=ALLTRIM(thisform.text1.Value) AND  act_flag="1"
>>  IF!FOUND()
>>     Append From Dbf('temp')
>>     replace transtype with "RE"
>>     replace SHIPNO with ALLTRIM(thisform.text1.value)
>>
>>    With thisform.grid1
>>          .recordsource = ''
>>            Select temp
>>          *  Zap  &&& another error ,many users can use this form
>>          *delete all
>>         .recordsource = 'temp'
>>          thisform.text1.SetFocus
>>         thisform.refresh
>>   endwith
>>**********************
>>            with thisform.Grid1
>>              .Recordsource = .Recordsource
>>            endwith
>>ENDIF
>>endif
>>
>>

>>
>>thanks