标题: 求助啊 可以追加无法更新?????? [打印本页] 作者: 文棣 时间: 2011-6-7 19:04 标题: 求助啊 可以追加无法更新?????? 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
把第一个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