以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 按钮代码求助(C版请进,又出问题了) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5554) |
||||||||
-- 作者:wqc360 -- 发布时间:2009/12/19 12:06:00 -- 按钮代码求助(C版请进,又出问题了) 表B“工序完工日期”=表A到料日期+表B“工序天数”(工序号为1时,直接计算,为2时,工序天数=1+2天数合计,以此类推————)/表A“合计天数”*表A“计划周期”
得到如下附件表B图号001的效果。谢谢
[此贴子已经被作者于2009-12-24 15:30:17编辑过]
|
||||||||
-- 作者:czy -- 发布时间:2009/12/19 12:25:00 -- 其它没看懂。 Dim dr As DataRow = e.DataRow Dim pr As DataRow = dr.GetParentrow("表A") if dr("工序号") = "1" Then dr("工序完工日期") = pr("到料日期").AddDays(dr("工序天数")) End If |
||||||||
-- 作者:wqc360 -- 发布时间:2009/12/19 12:44:00 -- 只算出了工序号=1的行,工序天数应要用累加的。如工序号=1时,工序天数=工序天数 |
||||||||
-- 作者:czy -- 发布时间:2009/12/19 12:54:00 -- 以下是引用wqc360在2009-12-19 12:44:00的发言:
只算出了工序号=1的行,工序天数应要用累加的。如工序号=1时,工序天数=工序天数
|
||||||||
-- 作者:wqc360 -- 发布时间:2009/12/19 13:01:00 -- 就像示范文件流水账中的,他有加和减,我这个只有加,我搞了几下,没成功 |
||||||||
-- 作者:czy -- 发布时间:2009/12/19 13:07:00 -- 2009-12-18 加 2 = 2009-12-20 这可以理解。 2009-12-18 加 2 加 1.4 = 2009-12-23 2009-12-18 加 2 加 1.4 加 1.2 = 2009-12-25 2009-12-18 加 2 加 1.4 加 1.2 加 1.3 = 2009-12-30 上面三项叫人怎么理解的了? |
||||||||
-- 作者:wqc360 -- 发布时间:2009/12/19 15:28:00 -- 示范文件流水帐例子二我改了一下,去掉出库数据的计算。得出来的库存就是我想要的每行计算用的“工序天数”,入在表B加一个过度列“A”,把一下公式出库改为“A”,C版的公式“工序天数”改为“A”。判断试去掉,应该可以计算出来。如果不加过度列,看看怎么合并 |
||||||||
-- 作者:czy -- 发布时间:2009/12/19 16:30:00 -- 直接这种方式就行吧? Dim dr As DataRow = e.DataRow Dim Sum As Double = Tables("表B").Compute("Sum(工序天数)","[图号] = \'" & dr("图号") & "\' And [名称] = \'" & dr("名称") & "\' And [订单号] = \'" & dr("订单号") & "\' And [工序号] <= " & dr("工序号")) Dim pr As DataRow = dr.GetParentrow("表A") dr("工序完工日期") = pr("到料日期").AddDays(Sum) |
||||||||
-- 作者:wqc360 -- 发布时间:2009/12/19 16:41:00 -- 这样只是从到料日期往后计算,应再乘以比例(表A“计划周期”/表A“合计天数”) 请C版在帮帮忙 谢谢 |
||||||||
-- 作者:czy -- 发布时间:2009/12/19 16:51:00 -- 你加上下面这段看看,加哪你自己看,我没搞清楚你的问题。 pr("计划周期")/pr("合计天数") |