谢谢，下午开会，明天试试看

你好，刚试了这段程序，发现CY2里是每一层对应WX里的同层的一家随机数最小样本，而不是CY2里每一家对应WX里同层的每一家

.....

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

是啊，我说的每一家就是每一条的意思，但我运算出来是比如53的第一层有7条记录，这七条记录都是对应WX里53第一层里随机数最小的那条记录，而不是说CY2里53第一层第二条应该对应wx里同层除了已标记那家随机数最小的记录

....

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

这个和昨天那个好像没变化么，刚运行全是错误提示。。。。。

不好意思，你这段程序应该没问题，因为有几条记录对不上，我估计是我这个程序抽的时候有问题
 use cy1.dbf
 sele 2
 use yb.dbf
 sele 3
 use wx.dbf
 SELECT 4
 USE cy2.dbf
 SELECT 4
 DELETE ALL
 PACK

 for i=53 to 89
     for m=1 to 5
         sele 2
         sele * from yb where hydl=i and fc=m into dbf ls1
         SELECT ls1
         n=RECCOUNT()
         k=n+5
         SELECT 1
         SELECT * FROM cy1 WHERE hydl=i AND fc=m INTO dbf ls2
         SELECT ls2
         s=RECCOUNT()
         IF k<=s
             SELECT 3
             SELECT * FROM wx WHERE hydl=i AND fc=m INTO dbf ls3
             SELECT ls3
             x=RECCOUNT()
             IF x<>0
                 SELECT top x * FROM cy1 ORDER BY random WHERE hydl=i AND fc=m INTO dbf ls4
                 SELECT 4
                 APPEND FROM ls4
                 SELECT ls4
                 USE
                 DELETE FILE ls4.dbf
             ENDIF  

             SELECT ls3
             USE
             DELETE FILE ls3.dbf
            
         ENDIF
         SELECT ls1
         USE
         DELETE FILE ls1.dbf
         SELECT ls2
         USE
         DELETE FILE ls2.dbf
         
     ENDFOR
 ENDFOR
 CLOSE ALL

......

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

是啊，我是根据我上面帖的这个程序抽的，按理说和WX的应该都对应起来，你能不能棒哦看看是不是那个程序有问题？谢谢

崩溃了，现在一条都对应不上，随机数取的最小数都是0，问题压根就没哟0