表达式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式问题

共有2194人关注过本帖树形打印复制链接主题：表达式问题

aza520

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

表达式问题

Post By：2018/11/16 15:51:00 [只看该作者]

“本期末累计计量金额”列和“上期末累计计量金额”都是表达式列，“本期末累计计量金额”列设置的表达式：Sum(Child(计量统计_计量汇总).计量金额)，“上期末累计计量金额”列相统计不包括最近一期计量的计量金额，如图中就是不统计2期计量金额，应该是1200数值。请问老师“上期末累计计量金额”列的表达式是怎样？

此主题相关图片如下：1111.png

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/16 16:21:00 [只看该作者]

只能写代码计算了，比如代码

Dim fdr = DataTables("子表").find("关联列 = '" & e.DataRow("关联列") & "'", "期数 desc")

If fdr Is Nothing Then
    e.DataRow("上期累计") = 0
Else
    e.DataRow("上期累计") = DataTables("子表").compute("sum(金额)", "关联列 = '" & e.DataRow("关联列") & "'") - fdr("金额")
Else

aza520

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

Post By：2018/11/16 17:43:00 [只看该作者]

老师，这个代码我写在DataColChanged下，是“项目名称”列和“施工合同段”列两列关联，以下代码怎么改

Dim fdr = DataTables("计量汇总").find("项目名称 = '" & e.DataRow("项目名称") & "' And "施工合同段 = '" & e.DataRow("施工合同段") & "'", "计量期次 desc")

If fdr Is Nothing Then

e.DataRow("第100章2") = 0

Else

e.DataRow("第100章2") = DataTables("计量汇总").compute("sum(第100章)", "项目名称 = '" & e.DataRow("项目名称") & "' And "施工合同段 = '" & e.DataRow("施工合同段") & "'") - fdr("第100章")

Else

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/16 18:10:00 [只看该作者]

如

Dim e
Dim fdr = DataTables("计量汇总").find("项目名称 = '" & e.DataRow("项目名称") & "' And 施工合同段 = '" & e.DataRow("施工合同段") & "'", "计量期次 desc")

If fdr Is Nothing Then
    e.DataRow("第100章2") = 0
Else
    e.DataRow("第100章2") = DataTables("计量汇总").compute("sum(第100章)", "项目名称 = '" & e.DataRow("项目名称") & "' And 施工合同段 = '" & e.DataRow("施工合同段") & "'") - fdr("第100章")
End If

aza520

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

Post By：2018/11/16 18:45:00 [只看该作者]

老师代码改成以下，但没反应

Dim fdr = DataTables("计量汇总").find("项目名称 = '" & e.DataRow("项目名称") & "' And 施工合同段 = '" & e.DataRow("施工合同段") & "'", "计量期次 desc")

If fdr Is Nothing Then

e.DataRow("第100章2") = 0

Else

e.DataRow("第100章2") = DataTables("计量汇总").compute("sum(第100章)", "项目名称 = '" & e.DataRow("项目名称") & "' And 施工合同段 = '" & e.DataRow("施工合同段") & "'") - fdr("第100章")

End If

此主题相关图片如下：1111.png