首页    新闻    群组    交易    人才    下载    博客    代码贴    论坛

解决一个vb6.0循环读取数据集丢失记录问题

预算:¥50 - ¥100发布日期:2018-10-04

我是菜鸟,正学习一个网上下载的源码,遇到一个问题
'按照领用单号读取所有明细,并更改库存数量
Public Sub UpdateStore(ByVal TmpId As Long)
  Dim rs As New ADODB.Recordset  '定义结果集对象
  Dim lAmount As Integer   '领用数量
  Dim TmpOId As Long  '办公用品编号
  
  '设置SELECT语句,读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM DrawList WHERE DId=" + Trim(TmpId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  Do While Not rs.EOF
    MyStore.OAmount = 0 - rs.Fields(3)      '领用数量
    MyStore.UpdateAmount (rs.Fields(2))     '办公用品编号
    rs.MoveNext
  Loop
End Sub

超过4条数据就会报错,错误3704 ,对象关闭时不允许使用

加上On Error Resume Next后不报错,但是超过4条以上的数据都丢失了
投标并联系雇主
免责声明:BCCN仅提供信息发布服务,暂未提供担保交易服务,请交易时在线下自行签订合同,以保障双方权益。