hi all,

any idea to replace at 2 tables,

at first table ,works
not work with another table

IF act_flag="2"
     GO BOTTOM
      LOCATE FOR UPPER(shipno) =alltrim(thisform.text1.Value) AND  act_flag="2"
        IF!FOUND()
           MESSAGEBOX("Not Found")
           ELSE
           Select (cAlias)
           scan
           DELETE FOR UPPER(shipno) =alltrim(thisform.text1.Value) AND  act_flag="2"
           endscan
        Append from dbf('csrMyCursor') for !empty(bookno) 
        * for !empty(bookno) or !empty(sticket)  OR !empty(eticket)
        SCAN FOR UPPER(shipno) =alltrim(thisform.text1.Value) AND  act_flag="2"
               REPLACE  recevied WITH thisform.text8.Value,rdate WITH thisform.text9.value
                     with thisform.combo1
                           REPLACE storid WITH .List(.ListIndex,2)
                     ENDWITH
                      with thisform.combo2
                           REPLACE GAMENO WITH .List(.ListIndex,2)
                     ENDWITH
                          endscan
 
                              IF USED('game')
                           SELECT game
                                 ELSE
                         SELECT 0
                            USE game AGAIN && 
            brow && not work
? thisform.combo2.List(.ListIndex,2)            
? .List(.ListIndex,2)
WAIT  && not work
                     with thisform.combo2
                       replace balance1 WITH balance1 +lcnoofticket FOR            game=thisform.combo2.List(.ListIndex,2)
                    ENDWITH
 endif
  
 ENDIF