SELECT tempxxx fl_execute = .f. IF RECCOUNT() > 0 lcSelectSQL = "SELECT DISTINCT hier.account_code as account " + ; "FROM h_node hnode, hierarchy hier " + ; "WHERE hier.hcode = hnode.hcode AND (" SCAN FOR INLIST(tempxxx.hcode, 55555, 66666) lcSelectSQL = lcSelectSQL + IIF(fl_execute, " OR ","") + "hier.hcode = '" + tempxxx.hcode + "'" fl_execute = .t. ENDSCAN IF fl_execute lcSelectSQL = lcSelectSQL + ")" lnExec = SQLEXEC(lnconnect,lcSelectSql,'temptodelete') ENDIF ENDIF =sqldisconnect(lnconnect) IF fl_execute SELECT temptodelete BROWSE ENDIF