以文本方式查看主题

-  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)

--  作者:13678391902
--  发布时间: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

如果看不懂请上传实例说明

--  作者:13678391902
--  发布时间: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

--  作者:13678391902
--  发布时间:2024/4/11 9:48:00
--  
可以了,太感谢您了。
--  作者:13678391902
--  发布时间: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

--  作者:13678391902
--  发布时间:2024/6/5 17:54:00
--  
可以了,谢谢老师。