Office中国论坛/Access中国论坛

标题: 求助 [打印本页]

作者: bit-yxn 时间: 2013-9-21 15:25
标题: 求助
  rstwo.Open "select*from BOM修改表"
  rsthree.Open "select*from 版本号更新表"
While rsthree.EOF
      While rstwo.EOF
         If rsthree("零件号") = rstwo("零件号") Then
            rsthree("零件图纸版本号") = rstwo("零件图纸版本号")
         Else
         End If
         rstwo.MoveNext
      Wend
rsthree.MoveNext
Wend
rstwo.Close
Set rstwo = Nothing
rsthree.Close
Set rsthree = Nothing

帮忙看下这段代码，为什么得不到想要的结果？

作者: admin 时间: 2013-9-22 15:40
代码在哪里会出错呢

作者: 轻风 时间: 2013-9-22 16:04
是不是要改成这样： While rsthree.EOF = False While rstwo.EOF = False......

作者: bit-yxn 时间: 2013-9-22 17:19

admin 发表于 2013-9-22 15:40
代码在哪里会出错呢

没有报错就是实现不了想要的结果

作者: bit-yxn 时间: 2013-9-22 17:19

轻风发表于 2013-9-22 16:04
是不是要改成这样： While rsthree.EOF = False While rstwo.EOF = False......

解决了，用了个更新查询，谢谢啦~

作者: 轻风 时间: 2013-9-23 08:21

bit-yxn 发表于 2013-9-22 17:19
解决了，用了个更新查询，谢谢啦~

那是，本来这个用更新查询就能轻松解决。
不过，你上面那代码应该是循环语句的条件有问题

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)