If Tables("流水线生产进度_Table2").Current Is Nothing OrElse Tables("流水线生产进度_Table2").Current.IsNull("要求货期")Then
Forms("流水线生产进度").Controls("Label1").Text = ""
Else
Dim d1 As Date = Tables("流水线生产进度_Table2").Current("要求货期")
Dim d2 As Date = Date.Now
Dim m As Double = (d1 - d2).TotalSeconds
If m > 0 Then
Forms("流水线生产进度").Controls("Label1").Text = Format(new Date().AddSeconds(m),"d天H时m分s秒")
Else
Forms("流水线生产进度").Controls("Label1").Text = Format(new Date().AddSeconds(m*-1),"-d天H时m分s秒")
End If
End If