比如我有2张表,表T1 有字段rec和qty,
表T2有字段rec,ww1,ww2,ww3,ww4,ww5,ww6,ww7,ww8
          DD   0    0  5   10  0    0    3   0
表T1和T2用rec做关联.
如何表T1有数据DD的QTY为12
那么12分别对表T2的WW1,WW2,WW3,WW4...做比较

如上面例子最后的结果应该是   rec,ww1,ww2,   ww3,      ww4,        ww5,ww6,ww7,ww8
                              DD   0    0    5         10          0    0    3   0
                         12   DD    0    0   (12-5)=7   (7-10)=-3  (WW5后面就不用再比较了)

那么比较后表T2的数据应变成    DD   0    0    0         3           0    0    3   0

[[it] 本帖最后由 xbj222 于 2008-7-25 15:16 编辑 [/it]]

还是用调试的办法，没有发现不了的问题：
在出现问题的语句前加一条逐步执行命令：
            set step on  && 一步一步执行调试命令
                Replace &a With &a+ship.qty
                 
                ……
然后在出现的“监视”窗口中键入a,及ship.qty，看看它们的值是什么，为什么不能转换累加。逐步往下执行，就会找出问题了。

不好意思,这二天休假了...
WW3是7 ,WW4一减是等于-3了,但我只要减到是负值的时候下面的就不用比下去了,WW4就赋值abs(-3)

那你就加条判断呗！判断是不是小于零儿不就行了？

能否给段例子看看?谢谢...

是比较字段值还是修改字段值？

是比较字段的值并修改字段的值？

Select 表T2
Scan
  Select 表T1
  Locate All For Rec==表T2.Rec
  If ! Eof()
    lnQty=表T1.Qty
    Select 表T2
    For lnCnt = 2 To 9
      lcField=Field(lnCnt)
      If &lcField > 0
        lnQty=lnQty-&lcField
        Replace &lcField With Abs(lnQty)
        If lnQty<=0
          Exit
        EndIf
      EndIf
    EndFor
  EndIf
  Select 表T2
EndScan
Return

谢谢,非常有用....