老师，我在 Dim mtks As Date 是设置了变量，但不管我变量里是输入08：00还是08：30它都会变成08：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 T As String = CurrentTable.Name
Dim kssj As Date = RQ.Value
Dim mtks As Date = SSJ.Value
Dim mtjs As Date = XSJ.Value
Dim d As Date = new Date(KSSJ.year, KSSJ.month, KSSJ.day, MTKS.hour, MTJS.Minute, 0)
Dim sp1 As TimeSpan = mtks.AddDays(1)-mtjs
Dim sp2 As TimeSpan = mtjs-mtks
Dim t1 As Table = Tables(T)
For Each r As Row In t1.Rows
r("计划生产时间") = d
Dim sj As Double = r("额定生产时间")
Do While sj > 0
d = d.AddSeconds(60*30)
If format(d, "HHmm") > Format(mtjs, "HHmm") Then
d = d.AddSeconds(sp1.TotalSeconds)
End If
sj = sj - 60*30
Loop
r("计划完成时间") = d
Next
我代码是改成这样的。
加好友 
发短信
Post By：2018/8/29 0:51:00 [只看该作者]
