以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  流水帐功能要是给产品加上一个属性怎么改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12380)

--  作者:cxcx
--  发布时间:2011/8/31 19:09:00
--  流水帐功能要是给产品加上一个属性怎么改
 

比如说产品是分规格 和型号的

我要做 什么规格 什么型号 出库 入库 库存 该怎么改这代码

 

 

        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("出库")

            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)("出库")

        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("出库")

                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)("出库")

                Next

            End If

        End If

End Select

 

DataRowDeleting

 

e.DataRow("入库") = 0

e.DataRow("出库") = 0

 

AfterMoveRow

 

Dim Key As Decimal

Dim Index As Integer

Dim Filter As String

Dim r As Row

Index = Math.Min(e.OldIndex, e.NewIndex)

Key = e.Table.Rows(Index)("_SortKey")

r = e.Table.Rows(e.NewIndex)

Filter = "[_SortKey] >= " & Key & " And [产品] = \'" & r("产品") & "\'"

e.Table.DataTable.DataCols("入库").RaiseDataColChanged(Filter)


--  作者:ybil
--  发布时间:2011/8/31 20:58:00
--  
大概条件这样:
"[产品] = \'" & dr("产品") & "\' and [规格] = \'"  &  dr("规格") & "\' and [型号] = \'"  &  dr("型号")  & "\'"

--  作者:cxcx
--  发布时间:2011/8/31 23:00:00
--  
好像不行哦~~用不了
--  作者:blackzhu
--  发布时间:2011/9/1 7:22:00
--  
怎么可能条件就是这样的.
--  作者:ruan
--  发布时间:2011/9/1 10:29:00
--  
该怎么弄啊~
--  作者:狐狸爸爸
--  发布时间:2011/9/1 10:32:00
--  
纸上不谈兵,做例表,输入测试数据,然后再提问。
--  作者:qtcks
--  发布时间:2011/9/1 11:13:00
--  
以下是引用cxcx在2011-8-31 19:09:00的发言:
 

比如说产品是分规格 和型号的

我要做 什么规格 什么型号 出库 入库 库存 该怎么改这代码

 

 

        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("出库")

            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)("出库")

        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("出库")

                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)("出库")

                Next

            End If

        End If

End Select

 

DataRowDeleting

 

e.DataRow("入库") = 0

e.DataRow("出库") = 0

 

AfterMoveRow

 

Dim Key As Decimal

Dim Index As Integer

Dim Filter As String

Dim r As Row

Index = Math.Min(e.OldIndex, e.NewIndex)

Key = e.Table.Rows(Index)("_SortKey")

r = e.Table.Rows(e.NewIndex)

Filter = "[_SortKey] >= " & Key & " And [产品] = \'" & r("产品") & "\'"

e.Table.DataTable.DataCols("入库").RaiseDataColChanged(Filter)

常规的进销存,不建议采取产品、规格、型号等方式进行库存处理。

合理的方案为,对商品进行唯一编码。实际操作中库存盘点、补货、入库等都方便很多。

而编码长度按实际需求而定,常规商品在1万以下6位编码唯一,方便简洁。


--  作者:cxcx
--  发布时间:2011/9/1 13:32:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

  就和示例里面的流水账一样 就是要两个列来确定一个产品
--  作者:cxcx
--  发布时间:2011/9/1 13:38:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2011/9/1 14:33:00
--  
研究了一下,这种双条件的流水账很难做,还是按7楼qtcks兄的方法,增加一个产品编号列吧