[求助]问高手一个奇怪的问题

liuhoubin168

这个问题不太好表述：

一个入库表，含产品名称，购进数量，已使用数量等

一个出库表，含产品名称，出库数量等

在出库窗体中使用成为当前事件和更新前事件控制出库，使用先进先出法。

在成为当前事件中，取得当前记录的更新前产品名称和更新前出库数量

在更新前事件中，出库查询出库数量是否大于该产品的库存数量  和 退回  查询退回数量是否小于已使用数量。然后更新入库表中已使用数量字段。

这个方法调试时从来没出现过问题。但是，在用户使用时就出问题了：例如，某产品购进3个，已使用2个，现在要再出库1个，但在更新前事件中提示库存不足了，已使用数变成3个(可能程序是再次发生了更新前事件，而没有再次触发成为当前事件)。可是按F8调试时，却又不会出现这种情况。

还是说不清楚，好久把源码发上来，但用户使用中的特殊情况不容易发生。

[此贴子已经被作者于2007-4-3 14:37:35编辑过]

方漠

缺一库存表,用DAO 或ADO更新数据吧,建议用别ACCESS的更新查询,不太可靠,且出错时不可捕获处理.

一点通

尝试改为更新后事件

hi-wzj

将例子放上来才好说哪里有误。

liuhoubin168

例子已上传

hi-wzj

是否因为多人操作？此法只适合单机操作。

hi-wzj

另外：

Private Sub Form_BeforeUpdate(Cancel As Integer)
  变化数量 = Nz(数量) - 更改前数量
  If Nz(数量) = 0 And 更改前数量 = 0 Then Exit Sub                          '更改前后数量均为零时可直接退出
  If 产品ID = 更改前产品ID Then                                             '未更换产品时
    If 出库(Nz(产品ID), Nz(变化数量)) = False Then Cancel = True            '调用出库函数
  Else
    If 出库(Nz(产品ID), Nz(数量)) = False Then Cancel = True: Exit Sub          '出库
    If 出库(Nz(更改前产品ID), Nz(更改前数量)) = False Then Cancel = True        '退货
  End If
End Sub
备注，出库和退货这两行必须变成同时成立时才能执行更改。

比如执行了出库后执行退货时发现出库(Nz(更改前产品ID), Nz(更改前数量)) = False 退出执行窗体数据不被更改，但出库计算已执行了。

liuhoubin168

是單機使用。

哦，謝謝版主！

再調試。

bigtoodog

用ADO来操作数据