VFP中替换字段,如果A2>0则B1=A2-A1;如果A3>0则B1=A3-A2；如果A4>0则B1=A4-A3.A12

题目

VFP中替换字段,如果A2>0则B1=A2-A1;如果A3>0则B1=A3-A2；如果A4>0则B1=A4-A3.A12

答案

如果只有A1~A12的话,可以这样写
Select 表
Scan
For i=1 To 12
s="A"+Transform(i)
If &s>0 And i>1
s1="A"+Transform(i-1)
Replace B1 With &s - &s1
Endif
Next
Endscan