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]]

还是不行

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

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

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

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

在命令窗口
a='sy0'
这个好象都不行哦..还是不太明白

谢谢你哦.

这个不行哦....
不知为什么..我用Replace &a With ship.qty 就行,用Replace &a With &a+ship.qty 却不会累加,显示记录是空的.不知什么原因..可能是我循环的原因吧..真搞不懂...

不行啦..提示操作数数据类型不匹配