MyException - 我的异常网
当前位置:我的异常网» VFP » 类似于顺序婚配,请帮忙

类似于顺序婚配,请帮忙

www.myexceptions.net  网友分享于:2013-04-10  浏览:2次
类似于顺序匹配,请帮忙
本帖最后由 dkfdtf 于 2013-03-22 21:05:17 编辑
表1                                                 表2
NO  NANE                VALUE     EXP1    ORD(查找的先后顺序)   NANE    PRICE
1   上衣                 100      1000                1        上衣      10
2   上衣,标签           200      2000                2        标签      20
3   书,皮带,标签       300      6000                3        皮带      30
4   皮带,提单           400     12000                4        书        40
5   提单,标签,上衣     500      5000                5        提单      50
6   小册子               600    (空白)


表1为不固定的数据,表2为标准数据

表1的NANE  及VALUE是已知,现在需要通过匹配表2的标准,赋予表1的EXP值。




------解决方案--------------------
Select Max(ord) From 表2 Into Array aTemp
nMaxOrd = aTemp[1]

Select 表1
Scan All
    cName = Name
    Alines(aTemp, Name, 1+4, ',')
    nPrice = 0
    nOrd = nMaxOrd
    Select 表2
    For ii = 1 To Alen(aTemp)
        Locate For Alltrim(Name) == aTemp[ii]
        If Found() And ord < nOrd
            nOrd = ord
            nPrice = price
        Endif
    Endfor
    Select 表1
    Replace Next 1 exp1 With Value * nPrice
Endscan

------解决方案--------------------
CREATE CURSOR T1 (NO N(8),NAME C(20),VALUE N(8),EXP1 N(8))

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有