求助啊 可以追加无法更新？？？？？？

文棣

Private Sub 输入_AfterUpdate()
Dim XSNum As Single
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Dim Cunzai As Boolean
Set Rs = New ADODB.Recordset

STemp = "Select * From 销售"

Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    XSNum = InputBox("请输入您购买该商品的数量：", "购买数量", 1)
         
        Cunzai = False
    If Rs.RecordCount < 1 Then
        Cunzai = False
    Else
      
        For i = 1 To Rs.RecordCount
            
            If Rs("销售单编号") = VarArray(0) And Rs("条码号") = Me.输入 Then
         
               
                Rs("销售数量") = Rs("销售数量") + XSNum
                Rs("销售金额") = Rs("销售数量") * Rs("销售单价")
               
                Rs.Update
               
                 
                Me.销售_子窗体.Requery
                Cunzai = True
                Rs.Update
                Exit For   
            Else
                Rs.MoveNext
            End If
        Next i
    End If
    If Cunzai = False Then
         
         
        
        Rs.AddNew
        Rs("销售单编号") = Me.销售单编号
        
        Rs("条码号") = Me.[库存明细 子窗体]![条码号]
        Rs("商品编号") = Me.[库存明细 子窗体]![商品编号]
        Rs("产品名称") = Me.[库存明细 子窗体]![产品名称]
        Rs("型号规格") = Me.[库存明细 子窗体]![型号规格]
        Rs("销售数量") = XSNum
        Rs("销售单价") = Me.[库存明细 子窗体]![单价]
        Rs("销售金额") = Rs("销售数量") * Me.[库存明细 子窗体]![单价]
        Rs("结算日期") = Now
        Rs("经手人") = "9999"
        Rs.Update
          Me.销售_子窗体.Requery
    End If

    Set Rs = Nothing
    Sub

roych

把第一个Rs.Update删除掉再试试。也就是第一段For语句改成一下代码：
For i = 1 To Rs.RecordCount
            If Rs("销售单编号") = VarArray(0) And Rs("条码号") = Me.输入 Then
                Rs("销售数量") = Rs("销售数量") + XSNum
                Rs("销售金额") = Rs("销售数量") * Rs("销售单价")                 
                Me.销售_子窗体.Requery
                Cunzai = True
                Rs.Update
                Exit For   

文棣

回复 roych 的帖子

还是无法实现 麻烦帮修改下 谢谢了

roych

回复 文棣 的帖子
重新看了下实例，按我的理解是，如果销售表里没有这条记录，则新增一条。如果存在这条记录，则在销售表里更新这条记录的数量和金额即可。如果没有理解错误的话，下面是正确的代码，已经调试过。
———如果需要在库存表里也更新的话，则需要另外再打开一个记录集。。。。

1. 
   
2. Dim XSNum As Single
   
3. Dim i As Integer
   
4. Dim STemp As String
   
5. Dim Rs As ADODB.Recordset
   
6. Dim Cunzai As Boolean
   
7. Set Rs = New ADODB.Recordset
   
8. STemp = "Select * From 销售 where 条码号='" & Me.输入 & "'"
   
9. Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
10. XSNum = InputBox("请输入您购买该商品的数量：", "购买数量", 1)
    
11. '如果不存在记录，则在销售表里新增一条。
    
12. If Rs.EOF Then
    
13.         Rs.AddNew
    
14.         Rs("销售单编号") = Me.销售单编号
    
15.         Rs("条码号") = Me.[库存明细 子窗体]![条码号]
    
16.         Rs("商品编号") = Me.[库存明细 子窗体]![商品编号]
    
17.         Rs("产品名称") = Me.[库存明细 子窗体]![产品名称]
    
18.         Rs("型号规格") = Me.[库存明细 子窗体]![型号规格]
    
19.         Rs("销售数量") = XSNum
    
20.         Rs("销售单价") = Me.[库存明细 子窗体]![单价]
    
21.         Rs("销售金额") = Rs("销售数量") * Me.[库存明细 子窗体]![单价]
    
22.         Rs("结算日期") = Now
    
23.         Rs("经手人") = "9999"
    
24.         Rs.Update
    
25.     Else
    
26. '如果存在记录，则只需要更新销售数量和金额即可。
    
27.         t = Rs.Fields("销售数量").Value
    
28.         Rs.Fields("销售数量").Value = Rs.Fields("销售数量").Value + XSNum
    
29.         Rs("销售金额") = Rs("销售数量") * Me.[库存明细 子窗体]![单价]
    
30.         Rs.Update
    
31.     End If
    
32.     Me.销售_子窗体.Requery
    
33.     Set Rs = Nothing
    
34. End Sub
    

复制代码

文棣

回复 roych 的帖子

感谢版主 一切OK

roych

为什么会存在多条记录呢？——这个问题要想清楚。
如果是因为日期/时间的缘故，可以考虑在Where里加上日期作为条件，从而得到唯一值。
如果无法获取唯一值，那会导致两种结果：用For语句则会更新/追加全部数据；不用For语句，则更新/追加第一条数据。

文棣

回复 roych 的帖子

版 主好  存在多条不同记录 代码就不对了

文棣

回复 roych 的帖子

我弄明白了 感谢你