以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]判断实时库存表里是否有此货号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25535)
--  作者：eboe
--  发布时间：2012/11/11 15:36:00
--  [求助]判断实时库存表里是否有此货号

菜鸟请教，思路是，例如两个表，一个入库单，一个实时库存，入库单窗体建按键“入库”，点击执行对实时库存表入库操作，有同一货号，就在同一货号基本上累计相加，如何判断没有的货号，自动加入此货号的一行，然后填入入库数量呢，希望给出一小段代码分析用，或是帮助页面有关此思路的分析也行，我在帮助中没找到，谢谢各位
--  作者：sgs
--  发布时间：2012/11/11 15:43:00
--  

        Dim dt1,dt2 As DataTable
        Dim dr1,dr2 As DataRow
        dt1 = DataTables("入库单")
        dt2 = DataTables("库存表")
        Dim Arys As List(of String) = dt1.GetUniqueValues("","货号")
        For Each Ary As String In Arys
            If dt2.find("货号 = \'"& Ary &"\'") Is Nothing Then
                dr2 = dt2.addnew
                dr2("货号") = Ary

                dr2("数量") = dt1.Compute("sum(数量)","货号 = \'"& Ary &"\'")
            Else
                dr2 = dt2.find("货号 = \'"& Ary &"\'")
                dr2("数量") = dt1.Compute("sum(数量)","货号 = \'"& Ary &"\'")
            End If
        Next

[此贴子已经被作者于2012-11-11 15:44:41编辑过]
--  作者：eboe
--  发布时间：2012/11/11 23:41:00
--  
以下是引用sgs在2012-11-11 15:43:00的发言：

        Dim dt1,dt2 As DataTable
        Dim dr1,dr2 As DataRow
        dt1 = DataTables("入库单")
        dt2 = DataTables("库存表")
        Dim Arys As List(of String) = dt1.GetUniqueValues("","货号")
        For Each Ary As String In Arys
            If dt2.find("货号 = \'"& Ary &"\'") Is Nothing Then
                dr2 = dt2.addnew
                dr2("货号") = Ary

                dr2("数量") = dt1.Compute("sum(数量)","货号 = \'"& Ary &"\'")
            Else
                dr2 = dt2.find("货号 = \'"& Ary &"\'")
                dr2("数量") = dt1.Compute("sum(数量)","货号 = \'"& Ary &"\'")
            End If
        Next

[此贴子已经被作者于2012-11-11 15:44:41编辑过]

谢谢谢谢。
--  作者：程兴刚
--  发布时间：2016/10/15 19:49:00
--  
批次直接放在入库表!