| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1207 人关注过本帖
标题:字段值比较
只看楼主 加入收藏
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
 问题点数:0 回复次数:8 
字段值比较
比如我有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]]
搜索更多相关主题的帖子: 字段 
2008-07-25 15:13
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
没看太明白,比较后ww3似乎是7,ww4=-3 啊?
还是用调试的办法,没有发现不了的问题:
在出现问题的语句前加一条逐步执行命令:
            set step on  && 一步一步执行调试命令
                Replace &a With &a+ship.qty
                 
                ……
然后在出现的“监视”窗口中键入a,及ship.qty,看看它们的值是什么,为什么不能转换累加。逐步往下执行,就会找出问题了。
2008-07-25 17:10
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
不好意思,这二天休假了...
WW3是7 ,WW4一减是等于-3了,但我只要减到是负值的时候下面的就不用比下去了,WW4就赋值abs(-3)

2008-07-27 19:02
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
那你就加条判断呗!判断是不是小于零儿不就行了?

2008-07-28 14:17
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
能否给段例子看看?谢谢...

2008-07-28 14:33
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
是比较字段值还是修改字段值?

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-07-28 17:23
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
是比较字段的值并修改字段的值?

2008-07-29 14:12
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
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

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-07-29 17:29
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
谢谢,非常有用....

2008-07-30 11:13
快速回复:字段值比较
数据加载中...
 
   



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

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