prepareedit事件
Dim dr As Row = e.Row
Select Case e.Col.Name
Case "发料日期1"
If dr("发料日期2") = Date.today orelse dr("发料日期3") = Date.today Then
e.cancel = true
End If
Case "发料日期2"
If dr("发料日期1") = Date.today orelse dr("发料日期3") = Date.today Then
e.cancel = true
End If
Case "发料日期3"
If dr("发料日期2") = Date.today orelse dr("发料日期1") = Date.today Then
e.cancel = true
End If
End Select