Office中国论坛/Access中国论坛

标题: 入库时自动修改成本的问题 [打印本页]

作者: Happyboy 时间: 2005-3-14 03:59
标题: 入库时自动修改成本的问题
[attach]9383[/attach]

[attach]9384[/attach]

[attach]9385[/attach]

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，那就不改变以前的成本。

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

作者: 方漠 时间: 2005-3-14 04:53
[attach]9386[/attach]

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

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

作者: gaofei186 时间: 2008-8-10 21:07
挺漂亮的嘛

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)