主题：按钮代码求助（C版请进，又出问题了）

表B“工序完工日期”=表A到料日期+表B“工序天数”（工序号为1时，直接计算，为2时，工序天数=1+2天数合计，以此类推————）/表A“合计天数”*表A“计划周期”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.table

得到如下附件表B图号001的效果。谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.table

只算出了工序号=1的行，工序天数应要用累加的。如工序号=1时，工序天数=工序天数
                                                                            =2时，应累加上工序号为1的天数
                                                                            =3时，应累加工序号为1和2的天数
要不做一个过度列，把天数累加起来，如工序号1=1，2=1+2，3=1+2+3————

就像示范文件流水账中的，他有加和减，我这个只有加，我搞了几下，没成功

示范文件流水帐例子二我改了一下，去掉出库数据的计算。得出来的库存就是我想要的每行计算用的“工序天数”，入在表B加一个过度列“A”，把一下公式出库改为“A”，C版的公式“工序天数”改为“A”。判断试去掉，应该可以计算出来。如果不加过度列，看看怎么合并
Select Case e.DataCol.Name
    Case "日期","产品","入库","出库"
        If e.DataRow.IsNull("日期") = False Then
            Dim drs As List(of DataRow)
            drs = e.DataTable.Select("[日期] >= #" & e.DataRow("日期") & "#","日期")
            For Each dr As DataRow In drs
                Dim Filter As String
                Filter = "[日期] < #" & dr("日期") & "# Or ([日期] = #" & dr("日期") & "# And [_Identify] <= " & dr("_Identify") & ")"
                Filter = "(" & Filter & ") And [产品] = '" & dr("产品") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)
               
                dr("库存") = Val1
            Next
        End If
End Select

这样只是从到料日期往后计算，应再乘以比例（表A“计划周期”/表A“合计天数”）
请C版在帮帮忙
谢谢

插在那里呀，我死了几次都不行
dr("工序完工日期") = pr("到料日期").AddDays(Sum)     pr("计划周期")/pr("合计天数")

这样不行
dr("工序完工日期") = pr("到料日期")*pr("计划周期")/pr("合计天数").AddDays(Sum)

ok，太感谢C版了

再求一个代码
表B“工序开工日期”=“工序完工日期”-“工序天数”

对了，谢谢，C版太强了