B
bstaunton
Guest
I don't really understand your solution David unfortunately. I finally figured out a way to do it in the end, this is the code I used in the end. CREATE QUERY queryh. queryh:SET-BUFFERS(bufferh). queryh:QUERY-PREPARE(SUBSTITUTE("FOR EACH &1", tableh:NAME)). queryh:QUERY-OPEN(). CREATE QUERY cqueryh. cqueryh:SET-BUFFERS(tableh). cqueryh:QUERY-PREPARE(SUBSTITUTE("FOR EACH &1", ctableh:NAME)). cqueryh:QUERY-OPEN(). tableh:TRACKING-CHANGES = TRUE. DO WHILE queryh:GET-NEXT() ON ERROR UNDO, THROW: cqueryh:GET-NEXT(). bufferh:BUFFER-COPY(cbufferh). END. tableh:TRACKING-CHANGES = FALSE. Having two separate queries incrementing together seems to solve the problem.
Continue reading...
Continue reading...