General information
Category:
Coding, syntax & commands
Build UDF that generates a string from all the fields i.e:
****
function mifuncion
private cadena
cadena=""
cadena=cadena+iif(myfield01,"1","0")
cadena=cadena+iif(myfield02,"1","0")
cadena=cadena+iif(myfield03,"1","0")
cadena=cadena+iif(myfield04,"1","0")
cadena=cadena+iif(myfield05,"1","0")
....
cadena=cadena+iif(myfield24,"1","0")
return cadena
******
index your table2 like this:
index on mifuncion() to table2
after that, edit a prg with this:
*****
use table1 in 0
use table2 index table2 in 0
select table1
go top
k=0
micadena=""
do while !eof()
micadena=mifuncion()
select table2
seek micadena
if found()
k=k+1
endif
select table1
skip
enddo
wait wind "There are "+str(k)+" Coincidences"
********
Hope this help.
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only