我想请问一下，关于无当前记录的问题！

petrelai

strXs1 = "select 库存表.商品编号,库存表.日期,库存表.库存量,库存表.完结,库存表.商品进价 from 库存表 where 库存表.商品编号 = '" & bian & "'" & "and  库存表.完结 = " & False & ""
  Set kuchunbiao = db.OpenRecordset(strXs1, dbOpenDynaset)
          Do While wei > 0 Or Not kuchunbiao.EOF
      
       If kuchunbiao.EOF Then
        MsgBox "库存中没有该商品信息,请确认是否已入库！！！！！！", 16, "警告"
        Exit Sub
      End If
        
      [B]  If kuchunbiao("库存量") > wei Then[/B]        kuchunbiao.Edit
        xiaoshuo("商品进价") = kuchunbiao("商品进价")
        kuchunbiao("库存量") = kuchunbiao("库存量") - wei
        kuchunbiao.Update
      
        Exit Do

一运行到加粗的地方（kuchunbiao("库存量") ）就会出提示说没有当前记录，但我用DLOOPUP查过，又是有记录的。请问是怎么回事？

如果库存量大于出库数量时，就会出上面的提示，如果是等于或是小于，就会不会了。

[此贴子已经被作者于2004-4-24 0:33:48编辑过]

petrelai

HELP!

skylark

To petrelai:
Do While wei > 0 Or Not kuchunbiao.EOF 改成and 试试?
或请将这部分模拟库上传.
_________________________
Do Our Job Well   Try Anything Once

petrelai

现在我这段代码真的很奇怪！
有两个IF语句，是否大于库存，等于库存，小于库存，一运行，它总是停在第一条IF语句中说没有当前记录，后我又把这三小段代码调换一下位置，它还是停在第一个IF语句提示同样的信息，但库存它又会减！
我照skylark说的那样改一改，还是不行！