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