Foxtable(狐表)用户栏目专家坐堂 → 跨表跨行多维数据引用计算(求助)


  共有2193人关注过本帖树形打印复制链接

主题:跨表跨行多维数据引用计算(求助)

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
跨表跨行多维数据引用计算(求助)  发帖心情 Post By:2020/12/31 12:29:00 [只看该作者]


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

定型模板求助 代码格式

实例模型如下

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多维计算模块.foxdb

[此贴子已经被作者于2020/12/31 13:55:25编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 14:24:00 [只看该作者]

请手工计算填入数据举例说明

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2020/12/31 15:27:00 [只看该作者]

计算规则
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_202012311330551.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 15:32:00 [只看该作者]

5000从哪里来?

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 17:05:00 [只看该作者]

Dim dr As DataRow = DataTables("费用明细").find(Filter)
dr("动态金额") = e.DataRow("金额") * dtr("[项目] = '" & dr("项目") & "' And [核算系数] = '" & dr("核算系数") & "'") 

 回到顶部