Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
![]() |
下载信息 [文件大小: 下载次数: ] | |
![]() |
只算出了工序号=1的行,工序天数应要用累加的。如工序号=1时,工序天数=工序天数
=2时,应累加上工序号为1的天数
=3时,应累加工序号为1和2的天数
要不做一个过度列,把天数累加起来,如工序号1=1,2=1+2,3=1+2+3————
只算出了工序号=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