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

Question

售信息可以写入销售信息表中~但是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这个希望高手帮忙检查一下

Answer 1

在销售模块中其他都好~
这个是记录销售信息的~是正确的代码~
'销售信息写入销售信息表中
        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

Answer 2

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