>QTY MAIN LEN_FT LEN_IN WEIGHT TWEIGHT ....... >1 M 45 0 8580 8580 >8 2 6 39.3 314.40 >2 4 5 128.4 256.8 >2 M 30 6 3960 7920 >4 3 0 50 200 >1 M 45 0 8580 8580 > >>
>QTY MAIN LEN_FT LEN_IN TWEIGHT ........ >1 M 45 0 9151.20 >2 M 30 6 8120 >1 M 45 0 8580 >>
nTotal = 0 SCAN IF Main = "M" * Finish the last record REPLACE TWeight WITH m.nTotal * Start a new record INSERT INTO NewTable (Qty, Main, Len_Ft, Len_In) ; VALUES (OldTable.Qty, "M", OldTable.Len_Ft, OldTable.Len_In) nTotal = OldTable.TWeight ELSE nTotal = m.nTotal + OldTable.TWeight ENDIF ENDSCANTamar