入库时自动修改成本的问题

Happyboy

Private Sub 单价_AfterUpdate()

Dim C1 As Currency, xy As Integer

Dim PN As String

Dim RS As Object

PN = Me.产品代码

C1 = Me.单价

If C1 = 0 Then Exit Sub

Set RS = Me.Recordset

For Each Field In RS.Fields

Debug.Print Field.Name

Next

If C1 <> RS!成本 Then



      RS.Edit

      RS!成本 = C1

      RS.Update

End If

End Sub

当增加入库的时候：

1，如果入库的产品的成本不为0，那么首先查找产品表中该产品以前的成本，如果和本次录入的成本不相等，那么就自动把以前的成本该成这次入库的成本；如果相等就不改变。

2，如果入库产品的成本为0，那就不改变以前的成本。

为什么有时候会跳出这样的对话框呢？请各位高手赐教！

方漠

方法错误，不需要用Me.Recordset，直接在子窗体上将“成本”字段添加进去，可见性设为否。再修改代码，见附件。

*当窗体为数据表视图时，此列可能会显示，可将其列数据锁定，再隐藏，使用户无法编辑。

gaofei186

挺漂亮的嘛