FOR i = 1 TO 14 && assume 20 values for flag lnTotalNeedingCopy = (thisform.text1.Value * i) - lnTotalCopied SEEK i COPY TO temp1 NEXT (lnTotalNeedingCopy) WHILE no = i lnTotalCopied = lnTotalCopied + _Tally SELECT aliq1 APPEND FROM temp1 SELECT aliq NEXTHTH
>SET SAFETY off > >USE aliq1 >SELECT 0 >USE aliq EXCL >INDEX ON no TAG no >lnTotalCopied = 0 > >FOR i = 1 TO 14 && assume 20 values for flag > lnTotalNeedingCopy = (thisform.text1.Value * i) - lnTotalCopied > SEEK i > COPY TO temp1 NEXT (lnTotalNeedingCopy) WHILE no = i > lnTotalCopied = lnTotalCopied + RECCOUNT('temp1') > SELECT aliq1 > APPEND FROM temp1 > SELECT aliq >NEXT