- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]材料统计表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111801)
-- 发布时间：2017/12/29 14:24:00
-- [求助]材料统计表
师请您好看附件.
现在有产品用料表,物料需求表.订单表.
当我在物料需求表输入时间,自动统计型号,汇总该型号的数量,再根据产品用料表来计算当日所有型号总需要的物料.
请问应该如此操作.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:联塑订单列表1.rar |
-- 发布时间：2017/12/29 15:06:00
--
请做内部数据源的例子发上来测试。
不然，请把你的sqlserver数据库发上来。
-- 发布时间：2017/12/29 15:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:order list.rar |
老师你看看是不是这个
-- 发布时间：2017/12/29 16:25:00
--
你的备份文件有问题，无法还原你的数据库。
请上传正确的备份，或者单独做一个内部数据源的项目发上来测试。
-- 发布时间：2017/12/30 10:22:00
--
老师你试试这个
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:项目3.rar |
-- 发布时间：2017/12/30 20:25:00
--
参考：
物料需求表Datacolchanged事件
Select Case e.DataCol.Name
Case "日期"
If e.DataRow.IsNull("日期") Then
e.DataRow("产品数量")= Nothing
e.DataRow("重量")= Nothing
e.DataRow("PP黑料用量")= Nothing
e.DataRow("PP新料")= Nothing
Else
Dim dr As DataRow = DataTables("产品用料表").Find("产品编码=\'" & e.DataRow("产品编码") & "\' and 型号=\'" & e.DataRow("型号") & "\'")
If dr IsNot Nothing Then
Dim sl As Integer = DataTables("联塑订单表").Compute("Sum(数量)","下单日期=\'" & e.DataRow("日期") & "\' And 产品编码=\'" & e.DataRow("产品编码") & "\' and 型号=\'" & e.DataRow("型号") & "\'")
e.DataRow("产品数量")= sl
e.DataRow("重量")= dr("重量") * sl
e.DataRow("PP黑料用量")= dr("PP黑料用量") * sl
e.DataRow("PP新料")= dr("PP新料") * sl
End If
End If
End Select
-- 发布时间：2017/12/31 14:05:00
-- 回复：（有点蓝）参考：物料需求表Datacolchanged事件...
此主题相关图片如下：1.png
老师你看看是什么问题 .我输入日期 没有反应呢
-- 发布时间：2018/1/1 20:12:00
--
你要输入 【产品编码】、【型号】、【日期】，才能查找和计算的，类似 http://www.foxtable.com/webhelp/scr/0681.htm
Select Case e.DataCol.Name
Case "日期", "产品编码", "型号"
If e.DataRow.IsNull("日期") Then
e.DataRow("产品数量")= Nothing
e.DataRow("重量")= Nothing
e.DataRow("PP黑料用量")= Nothing
e.DataRow("PP新料")= Nothing
Else
Dim dr As DataRow = DataTables("产品用料表").Find("产品编码=\'" & e.DataRow("产品编码") & "\' and 型号=\'" & e.DataRow("型号") & "\'")
If dr IsNot Nothing Then
Dim sl As Integer = DataTables("联塑订单表").Compute("Sum(数量)","下单日期=\'" & e.DataRow("日期") & "\' And 产品编码=\'" & e.DataRow("产品编码") & "\' and 型号=\'" & e.DataRow("型号") & "\'")
e.DataRow("产品数量")= sl
e.DataRow("重量")= dr("重量") * sl
e.DataRow("PP黑料用量")= dr("PP黑料用量") * sl
e.DataRow("PP新料")= dr("PP新料") * sl
End If
End If
End Select
[此贴子已经被作者于2018/1/1 20:12:59编辑过]
-- 发布时间：2018/1/3 19:39:00
-- 回复：（有点甜）你要输入 【产品编码】、【型号】、【...
老师麻烦看看这个是哪里出错了
此主题相关图片如下：错误.png
-- 发布时间：2018/1/3 20:21:00
--
前面的型号：find("[型号] =\'"