...

[ 本帖最后由 bccn0906 于 2013-11-28 15:33 编辑 ]

Use WX In 0
 Use CY2 In 0
 SELECT CY2
 SCAN

    CALCULATE MIN(r1) TO Random_TMP FOR allt(hydl)==allt(CY2.hydl) And fc=CY2.fc And Not(allt(bZ2)=='1') IN WX
     SELECT WX
     LOCATE FOR allt(hydl)==allt(CY2.hydl) And fc=CY2.fc And Not(allt(bZ2)=='1') AND r1=Random_TMP
     If Found()
         Replace bZ2 With '1' In WX
         Replace WIGHT0 With WX.WEIGHT,NH0 With WX.NH0,code10 With WX.code10,NH10 With WX.Nhl In CY2
     Else
         =Messagebox('错误',64,'提示')
     Endif
     Select CY2
 Endscan
 Close Databases

用这个试，min(R1)的取数还是全为0，都提示错误

...

[ 本帖最后由 bccn0906 于 2013-11-28 15:33 编辑 ]

....

[ 本帖最后由 bccn0906 于 2013-11-28 15:33 编辑 ]

不好意思，我们这个资料不能对外，本来想截个图给你但不行，和你描述一下吧，WX里hydl的数字只有点出来才能显示，否则只显示一位，而CY2是2位都能显示出来的

....

[ 本帖最后由 bccn0906 于 2013-11-28 15:33 编辑 ]

....

[ 本帖最后由 bccn0906 于 2013-11-28 15:34 编辑 ]

不是的，我这个上传键都是空白的，好像直接给屏蔽掉了，我在家可以的，上次那张EXCEL的图在单位也不行，但在家可以，真是不好意思，我这最后一个键是将帖子转成纯文本，我们这有些资料是不能对外公开的，望谅解

.....

[ 本帖最后由 bccn0906 于 2013-11-28 15:34 编辑 ]

看出来了，点出来就四舍五入了