Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请各位高手帮我看一下，下面代码中，哪里的语法存在问题。


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

主题：请各位高手帮我看一下，下面代码中，哪里的语法存在问题。
帅哥哟，离线，有人找我吗？
akzzwj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：529 积分：3605 威望：0 精华：0 注册：2011/10/11 17:20:00 		请各位高手帮我看一下，下面代码中，哪里的语法存在问题。  发帖心情 Post By：2012/10/6 13:31:00 [只看该作者]

Select Case e.DataCol.Name
    Case "物品名称"
        e.DataRow("本月收入_数量") = DataTables("采购入库单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'") + DataTables("成品入库单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'") + DataTables("领用退回单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'")
        + DataTables("销售退货单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'")
        e.DataRow("本月发出_数量") = DataTables("领用出库单明细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'") +
        DataTables("成品出库单明细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'") +
        DataTables("销售出库单明细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'") +
        DataTables("采购退货单细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'")
    Case "期初库存_数量","本月收入_数量","本月发出_数量"
        Dim dr As DataRow = e.DataRow
        dr("期末结存_数量") =  dr("期初库存_数量") + dr("本月收入_数量") - dr("本月发出_数量")
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/10/6 14:01:00 [只看该作者]

Select Case e.DataCol.Name
    Case "物品名称"
        e.DataRow("本月收入_数量") = DataTables("采购入库单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'") + DataTables("成品入库单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'") + DataTables("领用退回单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'") + DataTables("销售退货单明细").Compute("Sum(数量)","[物品名称] = '" & e.NewValue & "'")
        e.DataRow("本月发出_数量") = DataTables("领用出库单明细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'") +
        DataTables("成品出库单明细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'") +  DataTables("销售出库单明细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'") + DataTables("采购退货单细").Compute("Sum(数量)","[物料名称] = '" & e.NewValue & "'")
    Case "期初库存_数量","本月收入_数量","本月发出_数量"
        Dim dr As DataRow = e.DataRow
        dr("期末结存_数量") =  dr("期初库存_数量") + dr("本月收入_数量") - dr("本月发出_数量")
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
akzzwj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：529 积分：3605 威望：0 精华：0 注册：2011/10/11 17:20:00 		  发帖心情 Post By：2012/10/6 14:29:00 [只看该作者]

谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询