>* from: > where contatti.codcli == clienti.codcli ; > union ; > ..... > where agenda.codcli == clienti.codcli and Empty(idc); > ...... >*to: > where contatti.codcli == wanagraf.CODCLI ; > union ; > ..... > where agenda.codcli == wanagraf.CODCLI and Empty(idc); > ...... >>
>> Try >> If !Used('clienti') >> Use clienti Again In 0 >> EndIf >> Catch to oErr >> If oErr.errorno = 9 >> If !Used('clienti') >> Use clienti Again In 0 >> EndIf >> >> EndIf >> Finally >> If Empty(Sys(14,1,'clienti')) >> Select 'clienti' >> Set Index To 'clienti1' >> EndIf >> EndTry >>>>