专家坐堂-库存Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  库存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62031)

--  作者：120785713
--  发布时间：2014/12/24 13:02:00
--  库存
If e.DataCol.Name = "产品编号" Then
     Dim nms() As String = {"产品编号","产品名称","厂牌","产地"}
     If e.NewValue Is Nothing Then
         For Each nm As String In nms
             e.DataRow(nm) = Nothing
         Next
     Else
         Dim dr As DataRow
         dr = DataTables("产品资料表").Find("[产品编号] = \'" & e.NewValue & "\'")
         If dr IsNot Nothing
             For Each nm As String In nms
                 e.DataRow(nm) = dr(nm)
             Next
         End If
     End If
End If
\'以上是引用产品资料
Select Case e.DataCol.Name
    Case "产品编号","入库数量","产地"
        Dim dr As DataRow
        Dim dr1 As DataRow \'接收查找库存明细表的查找结果
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品编号] = \'" & mr("产品编号") & "\' And [产地] = \'" & mr("产地") & "\'", "[_SortKey] Desc") \'找出上一行并给dr
        dr1 = DataTables("库存余量表").Find("[产品编号] = \'" & mr("产品编号") & "\'And [产地] = \'" & mr("产地") & "\'")
        If dr Is Nothing Then    \'如果没有找到上一行,说明本行就是第一行
            mr("累计入库数量") = mr("入库数量")                         \'当前的累计数量就等于当前的入库数量
            dr = mr
            If dr1 Is Nothing Then                                      \'如果没有找到余量表中相同编号的行
                Tables("库存余量表").AddNew()                                    \'库存余量表增加一行
                Tables("库存余量表").Current("产品编号") = mr("产品编号")          \'增加的行中赋值
                Tables("库存余量表").Current("产品名称") = mr("产品名称")
                Tables("库存余量表").Current("产地") = mr("产地")
                Tables("库存余量表").Current("入库数量") = mr("累计入库数量") \'余量表入库数量等于当前行的累计数量
            Else                                                               \'否则
                dr1("入库数量") = mr("累计入库数量")                               \'找到行的入库数量等于当前入库明细表的累计数量
            End If                                                              \'结束

        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品编号] = \'" & dr("产品编号") & "\'And [产地] = \'" & mr("产地") & "\'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("累计入库数量") = drs(i-1)("累计入库数量") + drs(i)("入库数量")
            If dr1 IsNot Nothing Then                                      \'如果没有找到余量表中相同编号的行dr1不为空
                dr1("入库数量") = drs(i)("累计入库数量")                               \'找到行的入库数量等于当前入库明细表上一行的累计数量
            End If                                                              \'结束
        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 & "\'And [产地] = \'" & mr("产地") & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[产品编号] = \'" & e.OldValue & "\'And [产地] = \'" & mr("产地") & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("累计入库数量") = dr("入库数量")
                    If dr1 Is Nothing Then                                      \'如果没有找到余量表中相同编号的行
                        Tables("库存余量表").AddNew()                                    \'库存余量表增加一行
                        Tables("库存余量表").Current("产品编号") = mr("产品编号")          \'增加的行中赋值
                        Tables("库存余量表").Current("产品名称") = mr("产品名称")
                        Tables("库存余量表").Current("产地") = mr("产地")
                        Tables("库存余量表").Current("入库数量") = mr("累计入库数量") \'余量表入库数量等于当前行的累计数量
                    Else                                                               \'否则
                        dr1("入库数量") = dr("累计入库数量")                               \'找到行的入库数量等于当前入库明细表的累计数量
                    End If                                                              \'结束
                End If
            End If

            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 & "\'And [产地] = \'" & mr("产地") & "\'", "[_SortKey] Desc")
                If dr Is Nothing Then
                    dr = e.DataTable.Find("[产地] = \'" & e.OldValue & "\'And [产品编码] = \'" & mr("产品编号") & "\'", "[_SortKey]")
                    If dr IsNot Nothing Then
                        dr("累计入库数量") = dr("入库数量")
                        If dr1 Is Nothing Then                                      \'如果没有找到余量表中相同编号的行
                            Tables("库存余量表").AddNew()                                    \'库存余量表增加一行
                            Tables("库存余量表").Current("产品编号") = mr("产品编号")          \'增加的行中赋值
                            Tables("库存余量表").Current("产品名称") = mr("产品名称")
                            Tables("库存余量表").Current("产地") = mr("产地")
                            Tables("库存余量表").Current("入库数量") = mr("累计入库数量") \'余量表入库数量等于当前行的累计数量
                        Else                                                               \'否则
                            dr1("入库数量") = dr("累计入库数量")                               \'找到行的入库数量等于当前入库明细表的累计数量
                        End If                                                              \'结束
                    End If
                End If
            End If

            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品编号] = \'" & dr("产品编号") & "\'And [产地] = \'" & mr("产地") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("累计入库数量") = drs(i-1)("累计入库数量") + drs(i)("入库数量")
                    If dr1 Is Nothing Then                                      \'如果没有找到余量表中相同编号的行
                        Tables("库存余量表").AddNew()                                    \'库存余量表增加一行
                        Tables("库存余量表").Current("产品编号") = mr("产品编号")          \'增加的行中赋值
                        Tables("库存余量表").Current("产品名称") = mr("产品名称")
                        Tables("库存余量表").Current("产地") = mr("产地")
                        Tables("库存余量表").Current("入库数量") = mr("累计入库数量") \'余量表入库数量等于当前行的累计数量
                    Else                                                               \'否则
                        dr1("入库数量") = drs(i)("累计入库数量")                               \'找到行的入库数量等于当前入库明细表的累计数量
                    End If
                Next
            End If
        End If
End Select

--  作者：有点甜
--  发布时间：2014/12/24 14:05:00
--
例子发上来。

--  作者：Bin
--  发布时间：2014/12/24 14:05:00
--
请上个例子看看

--  作者：120785713
--  发布时间：2014/12/26 14:43:00
--

不好意思怎么发重复了呢