- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- B表引用A表数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191273)
-- 发布时间：2024/4/8 11:21:00
-- B表引用A表数据
老师请帮忙解决以下问题：
父表“区报表9”：岗位类别13：乡村公岗及城镇公岗位和补贴标准500和1970 （A表）
子表“区表统计8）要求结合“区报表9”：自动显示：①乡村（补贴）公岗标准500 ②城镇公岗（补贴）标准1970 （B表）
-- 发布时间：2024/4/8 11:37:00
--
参考：http://www.foxtable.com/webhelp/topics/1451.htm
如果看不懂请上传实例说明
-- 发布时间：2024/4/10 15:20:00
--
If e.DataCol.Name = "手工录入_补贴申报年度" OrElse e.DataCol.Name = "手工录入_发放期次"Then
Dim Filter As String = "[手工录入_补贴申报年度2] = \'" & e.DataRow("手工录入_补贴申报年度") & "\' and [手工录入_发放期次24] = \'" & e.DataRow("手工录入_发放期次") & "\'"
e.DataRow("关联表或公式自动生成_岗位补贴情况_乡村_金额") = DataTables("区报表9").Compute("Sum(公式重置列自动生成数据_申请金额_岗位补贴19)", Filter)
End If
请老师帮忙修改完善一下，谢谢。 要求： 一、A表（乡村金额）=B表 （年度2+发放期次24+岗位类别13 ） ；二：A表（城镇金额）=B表 （年度2+发放期次24+岗位类别13 ）。
-- 发布时间：2024/4/10 15:41:00
--
A表datacolchanged事件
If e.DataCol.Name = "手工录入_补贴申报年度" OrElse e.DataCol.Name = "手工录入_发放期次"Then
Dim Filter As String = "[手工录入_补贴申报年度2] = \'" & e.DataRow("手工录入_补贴申报年度") & "\' and [手工录入_发放期次24] = \'" & e.DataRow("手工录入_发放期次") & "\'"
e.DataRow("关联表或公式自动生成_岗位补贴情况_乡村_金额") = DataTables("区报表9").Compute("Sum(公式重置列自动生成数据_申请金额_岗位补贴19)", Filter & " and 岗位类别13=\'乡村公岗\'")
e.DataRow("关联表或公式自动生成_岗位补贴情况_城镇_金额") = DataTables("区报表9").Compute("Sum(公式重置列自动生成数据_申请金额_岗位补贴19)", Filter & " and 岗位类别13=\'城镇公岗\'")
End If
-- 发布时间：2024/4/11 9:48:00
--
可以了，太感谢您了。
-- 发布时间：2024/6/5 17:26:00
-- 空值问题请教
If e.DataCol.Name = "手工录入_补贴申报年度" OrElse e.DataCol.Name = "手工录入_发放期次"Then
Dim Filter As String = "[手工录入_补贴申报年度2] = \'" & e.DataRow("手工录入_补贴申报年度") & "\' and [手工录入_发放期次24] = \'" & e.DataRow("手工录入_发放期次") & "\'"
e.DataRow("关联表或公式自动生成_岗位补贴情况_乡村_金额") = DataTables("区报表9").Compute("Sum(公式重置列自动生成数据_申请金额_岗位补贴19)", Filter & " and 关联表自动生成数据_岗位类别13=\'乡村\'")
e.DataRow("关联表或公式自动生成_岗位补贴情况_城镇_金额") = DataTables("区报表9").Compute("Sum(公式重置列自动生成数据_申请金额_岗位补贴19)", Filter & " and 关联表自动生成数据_岗位类别13=\'城镇\'")
End If
请教师帮忙：第三行：绿色“城镇金额”按以上代码显示为空的情况下，如何能自动显示为“0”呢？谢谢
-- 发布时间：2024/6/5 17:27:00
--
dim a as double = DataTables("区报表9").Compute("Sum(公式重置列自动生成数据_申请金额_岗位补贴19)", Filter & " and 关联表自动生成数据_岗位类别13=\'乡村\'")
e.DataRow("关联表或公式自动生成_岗位补贴情况_乡村_金额") =a
-- 发布时间：2024/6/5 17:54:00
--
可以了，谢谢老师。