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