Question

vfp中字段如何替换

如下表：
星期一 星期二 星期三 星期四 星期五 星期六 星期日 尾数 下一个星期一
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28

要求一：尾数替换，星期一的尾数1乘以10加上星期二的下一个尾数9，如此类推。
要求二：下一个星期一。替换成第二条记录开始的下一个值。
得到的结果如下表：
星期一 星期二 星期三 星期四 星期五 星期六 星期日 尾数 下一个星期一
1 2 3 4 5 6 7 19 8
8 9 10 11 12 13 14 86 15
15 16 17 18 19 20 21 53 22
22 23 24 25 26 27 28 null null

Answer 1

假设所有字段均为数值型(即N型),则用下面的代码即可完成替换:
for i=1 to 3
go i
ws=val(right(allt(str(星期一)),1))*10
skip
nzy=星期一
ws=ws+val(right(allt(str(星期二)),1))
skip -1
repl 尾数 with ws,下星期一 with nzy
skip
endfor