狐狸爸爸：您好

请教自动计算工序交期的代码（急）！！！先谢谢您了

  工序交期的计算条件说明：

      1/工序表中的工序是一个不定数，可能要经过多道工序，也有可能经过4道或5道工序不等

      2/工序表最后一行的工序交期=订单交期默认的下班时间；xxxx年-xx月-xx日 17:00

      3/倒数次行的工序交期=最后一行的工序交期-最后一行的加工耗时（天）；说明：每天按8 小时计；

4/依次类推，倒数计算每道工序的工序交期，直到计算出首工序的工序交期；

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

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

很简单，几行代码搞定：

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

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

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

狐狸爸爸：虽然我还没看，但我太高兴了，太爱你~~~谢谢您！

狐狸爸爸：不好意思，还得请教你，我这个ERP软件供应商用的是SQL，但是日期搞了一个整数型，工序交期按你指导的代码，没有办法实现工序交期自动计算；我的代码是：

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").AddSeconds(17)
    For i As Integer = drs.count - 2 To 0 Step -1
        drs(i)("Finish1") = drs(i+1)("Finish1").AddSeconds(-drs(i+1)("uFinshAmount") * 24)
    Next
End If

我知道这段代码肯定有问题的，但是不知如何入手处理这个问题，给你添麻烦了！

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

狐狸爸爸：由于与ERP的数据库SQL的连接导致在foxtable中的日期类型为整数性，这段代码还是不能用，并不是简单的天换算成秒的问题；

狐狸爸爸：有时间帮忙解决一下，这个问题解决了，我就可以开始向公司请款了

一样的双击计算：

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

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