销售模块中销售信息可以写入销售信息表中~但是Book表中的数量不自减~高手帮忙检查代码~

[舒克的灰机]

售信息可以写入销售信息表中~但是Book中的数量不自减（ACCESS数据库）

'销售数量在Book表中扣除
Dim strProd As String
Dim intProd As Integer
strProd = "select * from Book"
DataRec3.Open strProd, DataConn, adOpenDynamic, adLockOptimistic

For intProd = intX - 1 To 1 Step -1
DataRec3.MoveFirst
Do While DataRec3.EOF = False

If DataRec3.Fields("图书编号") = ListView1.ListItems(intProd).SubItems(1) Then
DataRec3.Fields("数量") = CInt(DataRec3.Fields("数量")) - CInt(ListView1.ListItems(intProd).SubItems(2))
DataRec3.Update
End If
DataRec3.MoveNext
Loop
Next
DataRec3.Close

这个希望高手帮忙检查一下

[舒克的灰机]

在销售模块中其他都好~
这个是记录销售信息的~是正确的代码~
'销售信息写入销售信息表中
Dim strInfo As String
Dim intInfo As Integer
strInfo = "select * from Sell_History"
DataRec2.Open strInfo, DataConn, adOpenDynamic, adLockOptimistic

For intInfo = intX - 1 To 1 Step -1
DataRec2.AddNew
DataRec2.Fields("图书编号") = ListView1.ListItems(intInfo).SubItems(1)
DataRec2.Fields("图书数量") = ListView1.ListItems(intInfo).SubItems(2)
DataRec2.Fields("交易号") = txtBusNum.Text
DataRec2.Fields("日期/时间") = Combo1.Text
DataRec2.Fields("图书价格") = CInt(ListView1.ListItems(intInfo).SubItems(2)) * CSng(ListView1.ListItems(intInfo).SubItems(3))
DataRec2.Update
DataRec2.MoveNext
Next
DataRec2.Close

[饮水需思源]

'不用循环，一个update就可以实现
strprod=" update book set 数量=数量-"& CInt(ListView1.ListItems(intProd).SubItems(2))
 &" where 图书编号='"& ListView1.ListItems(intProd).SubItems(1) &"'"
dataconn.execute strprod

[舒克的灰机]

2楼的朋友
改正后运行
出现
实时错误‘ 35600’
索引没有边界~