以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53129)
--  作者：风声
--  发布时间：2014/6/30 13:54:00
--  [求助]统计

  Select Case e.DataCol.Name
    Case "商品编号","商品名称"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [商品编号] = \'" & mr("商品编号") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("结存_数量") = mr("入库_入库数量")+mr("期初_期初数量")+ mr("出库_出库数量")
            mr("结存_金额") = mr("入库_入库金额")+mr("期初_期初金额")- mr("出库_出库金额")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [商品编号] = \'" & dr("商品编号") & "\'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结存_数量") = drs(i-1)("结存_数量") + drs(i)("入库_入库数量") - drs(i)("出库_出库数量")
            drs(i)("结存_金额") = drs(i-1)("结存_金额") + drs(i)("入库_入库金额") - drs(i)("出库_出库金额")
        Next
        If e.DataCol.Name = "商品编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [商品编号] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[商品编号] = \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("结存_数量") = dr("入库_入库数量")- dr("出库_出库数量")
                    dr("结存_金额") = dr("入库_入库金额")- dr("出库_出库金额")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [商品名称] = \'" & dr("商品名称") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("结存_数量") = drs(i-1)("结存_数量") + drs(i)("入库_入库数量") - drs(i)("出库_出库数量")
                    drs(i)("结存_金额") = drs(i-1)("结存_金额") + drs(i)("入库_入库金额") - drs(i)("出库_出库金额")
                Next
            End If
        End If
End Selec

 

老师，该公式不能及时动态更新，
--  作者：有点甜
--  发布时间：2014/6/30 14:06:00
--  

 请先好好打打基础

 

http://www.foxtable.com/help/topics/1472.htm

 
--  作者：风声
--  发布时间：2014/6/30 15:24:00
--  
老师，我基础差一时半会还看不懂上面的代码都是抄来的，望老师帮我修该一下。老师我想从头学起有那些和你们狐表相关的书吗？请老师介绍。
--  作者：有点甜
--  发布时间：2014/6/30 16:09:00
--  
以下是引用风声在2014-6-30 15:24:00的发言：
老师，我基础差一时半会还看不懂上面的代码都是抄来的，望老师帮我修该一下。老师我想从头学起有那些和你们狐表相关的书吗？请老师介绍。

 

一段代码，谁知道你哪里错啊？是统计错，还是修改了别的表没有更新？

 

如果是修改了别的表没有更新的话，别的表要触发一下这个表的代码，2楼的解释已经很清楚了。

 

把你的例子发上来。
--  作者：风声
--  发布时间：2014/6/30 16:41:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:蓝峰管理.table
--  作者：有点甜
--  发布时间：2014/6/30 16:42:00
--  
 哪个表，做什么操作，怎么不计算？
--  作者：风声
--  发布时间：2014/6/30 16:47:00
--  
进销存那个表不动态更新
--  作者：有点甜
--  发布时间：2014/6/30 16:54:00
--  

代码

 

Select Case e.DataCol.Name
    Case "商品编号","商品名称","期初_数量","期初_金额","入库_数量","入库_金额","出库_数量","出库_金额"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [商品编号] = \'" & mr("商品编号") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("结存_数量") = mr("入库_数量")+mr("期初_数量")+ mr("出库_数量")
            mr("结存_金额") = mr("入库_金额")+mr("期初_金额")- mr("出库_金额")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [商品编号] = \'" & dr("商品编号") & "\'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结存_数量") = drs(i-1)("结存_数量") + drs(i)("入库_数量") - drs(i)("出库_数量")
            drs(i)("结存_金额") = drs(i-1)("结存_金额") + drs(i)("入库_金额") - drs(i)("出库_金额")
        Next
        If e.DataCol.Name = "商品编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [商品编号] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[商品编号] = \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("结存_数量") = dr("入库_数量")- dr("出库_数量")
                    dr("结存_金额") = dr("入库_金额")- dr("出库_金额")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [商品编号] = \'" & dr("商品编号") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("结存_数量") = drs(i-1)("结存_数量") + drs(i)("入库_数量") - drs(i)("出库_数量")
                    drs(i)("结存_金额") = drs(i-1)("结存_金额") + drs(i)("入库_金额") - drs(i)("出库_金额")
                Next
            End If
        End If
End Select
--  作者：风声
--  发布时间：2014/6/30 17:26:00
--  

老师还是不行啊
--  作者：有点甜
--  发布时间：2014/6/30 17:29:00
--  
以下是引用风声在2014-6-30 17:26:00的发言：

老师还是不行啊

 

你要修改 进销存 的数据，才会统计的啊。