专家坐堂-计算时间代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  计算时间代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123672)

--  作者：cjl333333333
--  发布时间：2018/8/20 22:06:00
--  计算时间代码

Dim RQ As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")
Dim SSJ As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim XSJ As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim pg As WinForm.TabControl = e.Form.Controls("页签")
Dim n As String = pg.SelectedPage.Name
Dim t As String = "生产计划_" & n

For i As Integer = 0 To Tables(t).Rows.Count-1
If XSJ.Value IsNot Nothing Then
If I=0 Then
Tables(t).Rows(i)("计划生产时间") = RQ.Value & " " & Format(SSJ.Value,"hh:mm:ss")
Tables(t).Rows(i)("计划完成时间") = Tables(t).Rows(i)("计划生产时间").AddSeconds(Tables(t).Rows(i)("额定生产时间"))

Else
Dim TP1 As Date = Tables(t).Rows(i-1)("计划完成时间").AddSeconds(Tables(t).Rows(i)("额定生产时间"))

If Format(TP1,"hh:mm:ss") < Format(XSJ.Value,"hh:mm:ss") Then
Tables(t).Rows(i)("计划生产时间") = Tables(t).Rows(i-1)("计划完成时间")
Tables(t).Rows(i)("计划完成时间") = Tables(t).Rows(i)("计划生产时间").AddSeconds(Tables(t).Rows(i)("额定生产时间"))

Else
Dim dd As Date = Tables(t).Rows(I-1)("计划生产时间").adddays(1)
Tables(t).Rows(i)("计划生产时间") = FORMAT(dd,"yyyy-MM-dd") & " " & Format(SSJ.Value,"hh:mm:ss")

Tables(t).Rows(i)("计划完成时间") = Tables(t).Rows(i)("计划生产时间").AddSeconds(Tables(t).Rows(i)("额定生产时间"))
End If
End If
Else
If I=0 Then
Tables(t).Rows(i)("计划生产时间") = RQ.Value & " " & Format(SSJ.Value,"hh:mm:ss")
Tables(t).Rows(i)("计划完成时间") = Tables(t).Rows(i)("计划生产时间").AddSeconds(Tables(t).Rows(i)("额定生产时间"))

Else
Tables(t).Rows(i)("计划生产时间") = Tables(t).Rows(i-1)("计划完成时间")
Tables(t).Rows(i)("计划完成时间") = Tables(t).Rows(i)("计划生产时间").AddSeconds(Tables(t).Rows(i)("额定生产时间"))

End If

End If

Next
Tables(T).Save()
老师，我段代码是计算生产时间，也就是一个排产的时间计算，其中有个问题是，如果我有个单跨过几天生产那这段代码就有问题，这要怎么处理呢？

--  作者：有点蓝
--  发布时间：2018/8/20 22:12:00
--
请上传实例测试