>Thanks Sergey,
>
>I have asked a wrong question, in fact
>
>I have mytable.dbf with an index on empno.
>
>recn() empno notes amount
>1 10000 text1 99.99
>2 10000 text2 99.99
>3 10000 text3 99.99
>4 10000 text4 99.99
>5 20000 text5 88.88
>6 20000 text6 88.88
>7 30000 text7 77.77
>8 30000 text8 77.77
>9 30000 text9 77.77
>10 30000 text10 77.77
>
>to get mytable after using BLANK FIELDS AMOUNT IN the records number 2,3,4,6,8,9,10
>
>and in order to keep only
>
>recn() empno notes amount
>1 10000 text1 99.99
>2 10000 text2
>3 10000 text3
>4 10000 text4
>5 20000 text5 88.88
>6 20000 text6
>7 30000 text7 77.77
>8 30000 text8
>9 30000 text9
>10 30000 text10
lnOldEmpNo = -1
scan
if EmpNo = lnOldEmpNo
blank fields amount
endif
lnOldEmpNo = EmpNo
endscanHTH, Hilmar.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
