Foxtable(狐表)用户栏目专家坐堂 → 跨表统计


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

主题:跨表统计

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:850 积分:5878 威望:0 精华:0 注册:2017/12/19 14:46:00
跨表统计  发帖心情 Post By:2024/6/7 14:37:00 [只看该作者]

请教老师:父表“预算清单”,子表“外购件茨沟明细表”
想实现,子表中所有行“到货数量”大于等于“数量”,且“到货数量”大于0的情况下,自动统计能够在父表中的“"当前进展_完成"”自动勾选,只要有一行不满足要求,就不自动勾选
请看看下面的代码有什么问题
Select Case e.DataCol.name
    Case "预算编号"
        If e.DataRow.IsNull("预算编号") Then
            DataTables("外购件采购明细表").DeleteFor("预算编号='" & e.DataRow("预算编号") & "'")
            e.DataRow("当前进展_完成") = False
        Else
            If e.DataRow.GetChildRows("外购件采购明细表").Count > 0
                Dim cnt As Integer = DataTables("外购件采购明细表").Compute("count(预算编号)","预算编号='" & e.NewValue  & "' and (到货数量 = 数量 Or 到货数量 > 数量 or 到货数量 > 0)")
                e.DataRow("当前进展_完成") = (cnt=0)
            End If
        End If
End Select

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


加好友 发短信
等级:超级版主 帖子:110886 积分:564386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/7 15:27:00 [只看该作者]

Dim cnt As Integer = DataTables("外购件采购明细表").Compute("count(预算编号)","预算编号='" & e.NewValue  & "' and (到货数量 < 数量  or 到货数量 <= 0)")

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:850 积分:5878 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2024/6/8 11:02:00 [只看该作者]

谢谢


 回到顶部