以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于多条件判定  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80184)

--  作者:l1q2lq
--  发布时间:2016/1/18 10:31:00
--  [求助]关于多条件判定
两张表,库位统计表和入库表
如果库位统计表和入库表中的零件号和库位号两列都一致,那么库位统计表里的入库总数=入库表中入库数的和

求助

--  作者:aduydgd
--  发布时间:2016/1/18 10:32:00
--  
代码贴出来啊
--  作者:大红袍
--  发布时间:2016/1/18 10:33:00
--  

一样的意思,就是跨表统计。

 

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

 

 


--  作者:l1q2lq
--  发布时间:2016/1/18 10:34:00
--  
Dim Arys3 As List(Of String)
Arys3 = DataTables("入库表").GetValues("零件号")
For Each Ary3 As String In Arys3
    Dim Val3 As Double = DataTables("入库表").Compute("Sum(入库数)","零件号=\'" & Ary3 & "\' ")
    If Val3 > 0 Then
        Dim dr3 As DataRow = DataTables("库位统计").Find("零件号=\'" & Ary3 & "\' ")
        If dr3 IsNot Nothing Then
            dr3("入库总数")=Val3
        End If
    End If
Next 

需要怎么修改?

--  作者:l1q2lq
--  发布时间:2016/1/18 10:34:00
--  
我晓得呢,就是多了一个判断条件搞不定了
--  作者:l1q2lq
--  发布时间:2016/1/18 10:37:00
--  
以下是引用大红袍在2016/1/18 10:33:00的发言:

一样的意思,就是跨表统计。

 

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

 

 多了个判断条件怎么处理亲》


--  作者:大红袍
--  发布时间:2016/1/18 10:40:00
--  

比如这样啊

 

If e.DataCol.Name = "产品" OrElse e.DataCol.name = "规格" Then \'发生变化的是产品列.
    \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = \'" & e.DataRow("产品") &  "\' and [规格] = \'" & e.DataRow("规格") & "\'")
End  If