Foxtable(狐表)用户栏目专家坐堂 → 疑惑 关于关联表统计列汇总的问题。


  共有3395人关注过本帖平板打印复制链接

主题:疑惑 关于关联表统计列汇总的问题。

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


加好友 发短信
等级:幼狐 帖子:189 积分:1440 威望:0 精华:0 注册:2013/10/31 20:26:00
疑惑 关于关联表统计列汇总的问题。  发帖心情 Post By:2014/5/22 20:54:00 [只看该作者]

关联表,子表是原先的历史数据,父表是新建表,父表和子表根据 [产品名称] 关联,父表的 [入库数量] 由子表根据相同[产品名称]的[入库数量]赋值。疑惑:父表的[入库数量]有的有值了,有的需要在子表新增一行后,值才跳上。求教。。。

Dim je As DataRow  = e.DataRow
Select Case e.DataCol.name
    Case "入库数量","出库数量","产品名称"
        Dim fdr As DataRow = je.GetParentRow("当前产品库存表")
        If fdr IsNot Nothing Then
            Dim su As Double = Tables("库存明细2013年").compute("Sum(入库数量)","[产品名称] = '" & fdr ("产品名称") & "'")
            Dim yf As Double = Tables("库存明细2013年").compute("Sum(出库数量)","[产品名称] = '" & fdr ("产品名称") & "'")
            fdr("总计入库数量KG") = su
            fdr("总计出库数量KG")=yf
            DataTables("当前产品库存表").DataCols("库存数量KG").RaiseDataColChanged(fdr)
            DataTables("当前产品库存表").DataCols("总计出库数量KG").RaiseDataColChanged(fdr)
            DataTables("当前产品库存表").DataCols("总计入库数量KG").RaiseDataColChanged(fdr)
           
        End If
End Select


 回到顶部
总数 15 1 2 下一页