select tp
For ii=1 To Reccount()
    For ii=14 To Reccount()
    a=Field(ii)
        Go ii
        Select ship
        Set Order To Record
        Seek Alltrim(tp.Record)
        Do While Alltrim(Record)==Alltrim(tp.Record) And !Eof()
            If Between(Substr(Dtos(ship.Date),4,5),Substr(FIELD(ii),2,5),Substr(FIELD(ii+1),2,5))
                Select tp
                Replace &a With &a+ship.qty
            Endif
            Select ship
            Skip
        Enddo
    Endfor
Endfor
这个宏怎么用?急~~~

[[it] 本帖最后由 xbj222 于 2008-7-24 09:28 编辑 [/it]]

Replace &a With &a.+ship.qty
先试试看

还是不行

Replace &a With &a+"+ship.qty"

更不行,我的ship.qty是另一个表里的数量,怎么能用"+ship.qty"字符呢..

我猜应该是那个&a这里有问题.

在Replace &a With &a+ship.qty前加一个调试命令set step on，运行到这条宏之前，
然后检查&a和&a+ship.qty的值是什么，也许就能发现问题所在了。

我已经知道是    Replace &a With &a+ship.qty这句有问题啊..运行显示"命令中含有不能识别的短语或关键字",我猜可能是我用了宏的关系..所以现在不知道怎么解决...求帮忙,谢谢

经过实验，类似的语句
Replace &a With &a+ship.qty
正确，可以达到目的。

能否给个例子来看看,谢谢!!!