主题：[求助]输入日期判断

If e.DataCol.Name = "丝印车间" Then
    If e.NewValue = Nothing Then
        MessageBox.show("当前日期不能为空","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    ElseIf e.NewValue < e.OldValue  Then
        e.Cancel = True
        MessageBox.show("当前日期只能往后填","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

 

或者

 

If e.DataCol.Name = "丝印车间" Then
    Dim da1 As Date = e.NewValue
    If da1 = Nothing Then
        e.Cancel = True
        MessageBox.show("丝印车间日期:" ,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        MessageBox.show("丝印车间1","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = False
    End If
End If

报什么错？报错截图发上来看看。或者，直接做一个项目发上来测试。

直接做一个项目发上来测试。

 

测试没问题就好。如果有问题，请具体说明怎么操作（输入什么），想得到什么效果。

回复10楼，没问题就好。

 

你以后提问，请说清楚明白你的问题，做什么样的操作以后，想得到什么效果，而你现在操作后，出现了什么不想要的效果。都要说清楚。