以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求表达式或代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1287)
--  作者：blackzhu
--  发布时间：2008/12/1 12:15:00
--  求表达式或代码

 我有一表：
  A表： 色号        规格     进仓日期          进仓数量
           2783      402      2008-11-30    300
           2783      202      2008-11-30    300
           2783      402      2008-12-1      400
           2783      202      2008-12-1      200
           2784      402      2008-11-30    1000
           2784      402      2008-12-1      500

  B表：  色号       规格      库存量
           2783      402       700
           2783      202       500
           2784      402       1500

   B表中想按照：色号和规格输入时将A表中的同一色号和规格的进仓数量相加。    

--  作者：blackzhu
--  发布时间：2008/12/1 12:16:00
--  
  我想在A表的进仓数量有变化时，B表同时会有变化。
--  作者：blackzhu
--  发布时间：2008/12/1 12:27:00
--  
将规格关联，可以解决！真强。
--  作者：czy
--  发布时间：2008/12/1 12:41:00
--  
关联应该以色号和规格多列关联。

代码差不多是这样吧。
在DataColChanged事件中设置

If e.DataCol.Name = "色号" OrElse e.DataCol.Name = "规格" Then
    if e.DataRow("色号") = Nothing OrElse e.DataRow("规格") = Nothing
        e.DataRow("库存量") = Nothing
    Else
        e.DataRow("库存量") = DataTables("A表").Compute("Sum(进仓数量)","[色号] = \'" & e.DataRow("色号") & "\' And [规格] = \'" & e.DataRow("规格") & "\'")
    End If
End If

 

[此贴子已经被作者于2008-12-1 12:42:02编辑过]
--  作者：blackzhu
--  发布时间：2008/12/1 16:41:00
--  
以下是引用czy在2008-12-1 12:41:00的发言：
关联应该以色号和规格多列关联。

代码差不多是这样吧。
在DataColChanged事件中设置

If e.DataCol.Name = "色号" OrElse e.DataCol.Name = "规格" Then
    if e.DataRow("色号") = Nothing OrElse e.DataRow("规格") = Nothing
        e.DataRow("库存量") = Nothing
    Else
        e.DataRow("库存量") = DataTables("A表").Compute("Sum(进仓数量)","[色号] = \'" & e.DataRow("色号") & "\' And [规格] = \'" & e.DataRow("规格") & "\'")
    End If
End If

 

[此贴子已经被作者于2008-12-1 12:42:02编辑过]

   多列关联可以做到了，谢谢，你的代码收藏！再次谢谢诶！