>lcMemo = RTRIM(< MemoField >)
>
>DO WHILE RIGHT(lcMemo,1)=CHR(13)
> lcMemo=LEFT(lcMemo, LEN(lcMemo)-1)
>ENDDO
>REPLACE < MemoField > WITH lcMemo
Or, you could simply use the report expression rtrim(
), without actually replacing.
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)