“如何给予反馈”;“未找到”;当listview字段与数据库中的字段不匹配时

“如何给予反馈”;“未找到”;当listview字段与数据库中的字段不匹配时,listview,ms-access,vb6,Listview,Ms Access,Vb6,这是从文本框“Receivedata”向我的listview插入数据的编码 这段代码用于从ms access中获取数据,并像这样访问我的listview rs.Filter = "Barcode = '" & sValues(1) & "'" Product_Name = rs.Fields!Product_Name Price = rs.Fields!Price Call oItem.ListSubItems.Add(, , Product_Nam

这是从文本框“Receivedata”向我的listview插入数据的编码

这段代码用于从ms access中获取数据,并像这样访问我的listview

rs.Filter = "Barcode = '" & sValues(1) & "'"
      Product_Name = rs.Fields!Product_Name
      Price = rs.Fields!Price

  Call oItem.ListSubItems.Add(, , Product_Name)
  Call oItem.ListSubItems.Add(, , Price)
  Call oItem.ListSubItems.Add(, , (Price * sValues(2)))


total = total + (Price * sValues(2))

  End If
Next i
End Sub
这就是工作

但是,如果我的listview中的条形码与数据库中的条形码不匹配,编译器将出错


如果listview中的条形码与数据库不匹配,产品名称和价格为“空”或“未找到”?如何在过滤记录集后检查
EOF

rs.Filter = "Barcode = '" & sValues(1) & "'"
If rs.EOF Then
    Product_Name = "not found"
    Price = 0
Else
    Product_Name = rs.Fields!Product_Name
    Price = rs.Fields!Price
End If

检查这种情况的正确方法是:
如果是rs.BOF和rs.EOF,那么
-不要忘记将DataControl的
boaction
eoaction
属性都设置为1。
rs.Filter = "Barcode = '" & sValues(1) & "'"
If rs.EOF Then
    Product_Name = "not found"
    Price = 0
Else
    Product_Name = rs.Fields!Product_Name
    Price = rs.Fields!Price
End If