主题：[求助]请教自动计算每行工序的工序交期的代码（急）

很简单，几行代码搞定：

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

点击浏览该文件:请教自动计算工序交期的代码（急）.table

提示： 随便双击订单交期列的某单元格，即可自动计算同一订单的工序交期。

If e.Col.name ="Finish2" AndAlso e.Row.Isnull("MainCode") = False AndAlso e.Row.Isnull("Finish2") = False Then
          Dim drs As List(of DataRow) = e.Table.DataTable.Select("MainCode = '" & e.Row("MainCode") & "'")
          Dim dr As DataRow = drs(drs.count -1)
          dr("Finish1") = dr("Finish2") + 17 * 3600
          For i As Integer = drs.count - 2 To 0 Step -1
                  drs(i)("Finish1") = drs(i+1)("Finish1") - drs(i+1)("uFinshAmount") * 24 * 3600
          Next
End If

一样的双击计算：

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

点击浏览该文件:请教自动计算工序交期的.rar