Dim rstTmp As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Set rstTmp = CurrentDb.OpenRecordset("Temp_tbl_Wip_Wo_Dep_Detail")
rstTmp.MoveFirst
Do Until rstTmp.EOF
Set rst1 = CurrentDb.OpenRecordset("select * from tbl_Wip_Wo_Dep_Stock where Dep = '" & Me!FromDep & "' and WoCode='" & rstTmp!WoCode & "'")
If rst1.RecordCount = 0 Then GoTo a
rst1.MoveLast
rst1.MoveFirst
Do Until rst1.EOF
rst1.Edit
rst1!Quantity = rst1!Quantity - Nz(rstTmp!Quantity, 0)
rst1!GrossWeight = rst1!GrossWeight - Nz(rstTmp!GrossWeight, 0)
rst1!Quantity = rst1!StoneWeight - Nz(rstTmp!StoneWeight, 0)
rst1!Quantity = rst1!NetWeight - Nz(rstTmp!NetWeight, 0)
rst1.Update
rst1.MoveNext
Loop
a:
rstTmp.MoveNext
Loop
rstTmp.Close
Set rst1 = Nothing
Set rstTmp = CurrentDb.OpenRecordset("Temp_tbl_Wip_Wo_Dep_Detail")
rstTmp.MoveFirst
Do Until rstTmp.EOF
Set rst2 = CurrentDb.OpenRecordset("select * from tbl_Wip_Wo_Dep_Stock where Dep = '" & Me!ToDep & "' and WoCode='" & rstTmp!WoCode & "'")
rst2.MoveLast
rst2.MoveFirst
Do Until rst2.EOF
rst2.Edit
rst2!Quantity = rst2!Quantity + Nz(rstTmp!Quantity, 0)
rst2!GrossWeight = rst2!GrossWeight + Nz(rstTmp!GrossWeight, 0)
rst2!Quantity = rst2!StoneWeight + Nz(rstTmp!StoneWeight, 0)
rst2!Quantity = rst2!NetWeight + Nz(rstTmp!NetWeight, 0)
rst2.Update
rst2.MoveNext
Loop
rstTmp.MoveNext
Loop
rstTmp.Close
Set rst2 = Nothing
各位大师能否帮我看一下以上的代码那里出错了吗,数据更新不成功!非常感谢!