以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50447)
--  作者：owenlyx
--  发布时间：2014/5/7 1:10:00
--  跨表计算

求助,如何跨表让项目中表a的件数（可能有很多行）同时剪去表B中对应的 “调走” 件数了（先判断表a中是否有表b对应的行，如有，然后表a将对应的行同时减除），不需要关联，而是直接跨表计算，谢谢   

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
--  作者：lsy
--  发布时间：2014/5/7 7:51:00
--  

是不是表A相当于主表，表B相当于子表？
--  作者：lsy
--  发布时间：2014/5/7 7:57:00
--  
If e.DataCol.Name = "调走" AndAlso e.DataRow.IsNull(e.DataCol) = False AndAlso e.DataRow.IsNull("条码号") = False AndAlso e.DataRow.IsNull("款号") = False Then
    Dim dr As DataRow = DataTables("表A").Find("条码号 = \'" & e.DataRow("条码号") & "\' And 款号 = \'" & e.DataRow("款号") & "\'")
    If dr IsNot Nothing Then
        dr("件数") = dr.OriginalValue("件数") - e.NewValue
    End If
End If
--  作者：owenlyx
--  发布时间：2014/5/7 7:57:00
--  

恩,是的 ,请帮忙