以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]新手求助跨表计算问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17665)

--  作者:yxcc266
--  发布时间:2012/3/20 23:00:00
--  [求助]新手求助跨表计算问题
想得到文件中统计表数据,请高手帮忙
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


--  作者:czy
--  发布时间:2012/3/20 23:08:00
--  
没能看懂
--  作者:yxcc266
--  发布时间:2012/3/20 23:10:00
--  
我说的不清楚,还是什么地方,统计表内容为空,现在是例子
--  作者:yxcc266
--  发布时间:2012/3/20 23:10:00
--  
统计表中备注有点说明
--  作者:yxcc266
--  发布时间:2012/3/20 23:12:00
--  
统计表中数据=流水中剥皮的行重量 X  属性中对应剥皮重量期间的单价=金额
--  作者:mr725
--  发布时间:2012/3/20 23:15:00
--  

看不懂什么规则,无解···


--  作者:yxcc266
--  发布时间:2012/3/20 23:22:00
--  
见图
--  作者:yxcc266
--  发布时间:2012/3/20 23:22:00
--  

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

--  作者:czy
--  发布时间:2012/3/20 23:27:00
--  

这样吗?

 

统计表DataColChanged事件


If e.DataCol.Name = "重量"
    Dim dr As DataRow = e.DataRow
    If dr.IsNull("重量") Then
        dr("单价") = Nothing
        dr("金额") = Nothing
    Else
        Dim dr1 As DataRow = DataTables("属性").Find("类别 = \'" & dr("类别") & "\' And 结束值 > " & dr("重量"))
        If dr1 IsNot Nothing Then \'如果找到的话
            dr("单价") = dr1("单价")
            dr("金额") = dr("单价") * dr("单价")
        End If
    End If
End If


--  作者:czy
--  发布时间:2012/3/20 23:29:00
--  

设置好代码后,将焦点切换到统计表,重量列,然后从菜单的工常工作中选择重置列可以得到结果。