| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2433 人关注过本帖
标题:不能识别的语句
取消只看楼主 加入收藏
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
 问题点数:0 回复次数:10 
不能识别的语句
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]]
搜索更多相关主题的帖子: 语句 
2008-07-24 09:26
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
还是不行

2008-07-24 10:26
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
更不行,我的ship.qty是另一个表里的数量,怎么能用"+ship.qty"字符呢..

2008-07-24 10:56
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
我猜应该是那个&a这里有问题.

2008-07-24 10:56
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
我已经知道是    Replace &a With &a+ship.qty这句有问题啊..运行显示"命令中含有不能识别的短语或关键字",我猜可能是我用了宏的关系..所以现在不知道怎么解决...求帮忙,谢谢

2008-07-24 11:19
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
能否给个例子来看看,谢谢!!!

2008-07-24 11:43
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
在命令窗口
a='sy0'
这个好象都不行哦..还是不太明白

2008-07-24 13:19
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
谢谢你哦.

2008-07-24 14:30
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
[bo][un]qjbzjp[/un] 在 2008-7-24 22:12 的发言:[/bo]

Replace &a With a+ship.qty

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

2008-07-25 05:46
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
不行啦..提示操作数数据类型不匹配

2008-07-25 10:15
快速回复:不能识别的语句
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041837 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved