以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  跨表统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50285)

--  作者:1234567
--  发布时间:2014/5/4 10:00:00
--  跨表统计

图片点击可在新窗口打开查看此主题相关图片如下:1465.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2014/5/4 10:04:00
--  

 这样改

 

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


--  作者:Bin
--  发布时间:2014/5/4 10:07:00
--  
条件改一下,               "[产品] LIke \'PD01%\'"


If e.DataCol.Name = "产品" Then \'发生变化的是产品列。
    if 
e.NewValue.Contains("-") then
     e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)"," [产品] like \'" & e.NewValue.split("-")(0) & "%\'")
   else
     e.
DataRow("数量") = DataTables("订单").Compute("Sum(数量)"," [产品] like \'" & 
e.NewValue & "%\'")
   end if
End
 
If

--  作者:1234567
--  发布时间:2014/5/4 10:07:00
--  

谢谢


--  作者:1234567
--  发布时间:2014/5/4 12:11:00
--  

If e.DataCol.Name = "产品" Then \'发生变化的是产品列.
    \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("总计") = DataTables("表B").Compute("Sum(材料费)+Sum(加工费)","[产品] like \'" & e.NewValue & "-*\'")
End If

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:1470.png
图片点击可在新窗口打开查看

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


--  作者:1234567
--  发布时间:2014/5/4 14:25:00
--  

是否要判断一下空值吗  IsNull([加工费], 0)

不知道这个函数要放在那里?


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

[此贴子已经被作者于2014-5-4 14:28:47编辑过]

--  作者:1234567
--  发布时间:2014/5/4 14:29:00
--  

我需要5楼的功能,该怎么处理?


--  作者:Bin
--  发布时间:2014/5/4 14:30:00
--  
看8楼