- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 填写日期出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142848)
-- 发布时间：2019/11/7 15:34:00
-- 填写日期出错
If e.DataCol.name = "工厂下单日期" Then
If e.NewValue <> Nothing Then
Dim a As Date = e.DataRow("下单日期")
Dim b As Date = e.DataRow("工厂下单日期")
Dim c As TimeSpan = b - a
If c.Days > 0 Then
MessageBox.Show("面料下单日期/面料计划交期不可比订单下单日期更早!", "提示")
e.Cancel = True
End If
End If
End If
If e.DataCol.name = "面料_计划交期" Then
If e.NewValue <> Nothing Then
Dim a As Date = e.DataRow("下单日期")
Dim d As Date = e.DataRow("面料_计划交期")
Dim f As TimeSpan = d - a
If f.Days > 0 Then
MessageBox.Show("面料下单日期/面料计划交期不可比订单下单日期更早!", "提示")
e.Cancel = True
End If
End If
End If
填写任意日期都会出错？
此主题相关图片如下：snipaste_2019-11-07_15-32-51.png
此主题相关图片如下：snipaste_2019-11-07_15-32-51.png-- 发布时间：2019/11/7 15:51:00
--
代码看不出问题，用这个方法分析一下，看看哪一行代码出错：