- 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=159592)
-- 发布时间：2020/12/31 12:29:00
-- 跨表跨行多维数据引用计算（求助）
此主题相关图片如下：微信截图_20201231133055.png
定型模板求助 代码格式
实例模型如下 下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:多维计算模块.foxdb
[此贴子已经被作者于2020/12/31 13:55:25编辑过]
-- 发布时间：2020/12/31 14:24:00
--
请手工计算填入数据举例说明
-- 发布时间：2020/12/31 15:27:00
--
计算规则
此主题相关图片如下：微信截图_202012311330551.png
-- 发布时间：2020/12/31 15:32:00
--
5000从哪里来？
-- 发布时间：2020/12/31 16:49:00
--
手动填入的
If e.DataCol.Name = "金额"
Dim dt As DataTable =DataTables("销售回款")
Dim dtr As DataTable =DataTables("定额表")
Dim Filter As String = "[月份] = \'" & e.DataRow("月份") & "\'"
Dim drs As List(Of DataRow) = DataTables("费用明细").Select(Filter)
For Each dr As DataRow In drs
dr("动态金额") = e.DataRow("金额") * dtr("[项目] = \'" & dr("项目") & "\' And [核算系数] = \'" & dr("核算系数") & "\'")
Next
End If
其他解决了 求 如何定位到定额表的对应行
[此贴子已经被作者于2020/12/31 16:51:00编辑过]
-- 发布时间：2020/12/31 17:05:00
--
Dim dr As DataRow = DataTables("费用明细").find(Filter)
dr("动态金额") = e.DataRow("金额") * dtr("[项目] = \'" & dr("项目") & "\' And [核算系数] = \'" & dr("核算系数") & "\'")