一条记录与之前某一条记录的差值如何实现？

hwm0077　发表于：2012-11-09 14:05:51 　

复制

现在做了一个实例，请老师帮忙！！谢谢了！！ 点击下载此附件

实例说明： 1、“表A” 中“单号”是有重复随时间递增的，但不连续；

2、每张单号包含1~3个小组的当天销售数据；

3、“分类变化差值”是指同一小组同一类商品当期数据与前一期对应数据的差值（右边子窗体看得较明白）；

比如图中“120309“条、“120304”条纪录纪录都是“A组、2类商品”，那么“120309“条纪录的“销售量差值”就是15-2=13”。

4、“差值”的规则是：当期分类商品的数据如果在该期之前的所有数据中没有对应数据，则该期“差值”为“0”（比如第一条记录）；

希望解决的问题（如图）： “商品销售分类变化差值”是手工计算输入的，如何实现自动计算保存？

找不到解答？

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

Top

在水一方发表于：2012-11-09 21:21:03

看看这个示例以前给别的网友做的和你这个差不多你自己改改

差值查询

Top

殷小宝发表于：2012-11-10 14:47:15

在添加记录窗体的文本框销售数量更新后事件写上以下代码，商品销售分类变化差值自动添上。

Private Sub 销售数量_AfterUpdate()
    Dim lngA As String
    Dim xsl As Long
    lngA = DMax("单号", "表A", "销售小组='" & [销售小组] & "' and 商品类别 =" & [商品类别])
    xsl = DLookup("[销售数量]", "表A", "单号='" & lngA & "'")
    Me.商品销售分类变化差值 = 销售数量 - xsl
End Sub

Top

殷小宝发表于：2012-11-10 15:18:39

上面代码应如下：

Private Sub 销售数量_AfterUpdate()
    Dim lngA As String
    Dim xsl As Long
    lngA = DMax("单号", "表A", "销售小组='" & [销售小组] & "' and 商品类别 =" & [商品类别])
    ' MsgBox "最大单号为" & lngA
    xsl = DLookup("[销售数量]", "表A", "单号='" & lngA & "'and 销售小组='" & [销售小组] & "' and 商品类别 =" & [商品类别])
    Me.商品销售分类变化差值 = 销售数量 - xsl
End Sub

Top

hwm0077 发表于：2012-11-12 15:42:42

谢谢小宝老师！在水一方老师的也可以实现。

最佳给小宝老师了。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

一条记录与之前某一条记录的差值如何实现？

找不到解答？