Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "实发支数_1","实发支数_2","实发支数_3"
If dr.IsNull("实发支数_1") Then
dr("发料日期1") = Nothing
Else
dr("发料日期1") = Date.today
End If
If dr.IsNull("实发支数_2") Then
dr("发料日期2") = Nothing
Else
dr("发料日期2") = Date.today
End If
If dr.IsNull("实发支数_3") Then
dr("发料日期3") = Nothing
Else
dr("发料日期3") = Date.today
End If
End Select
想实现“发料日期1”，“发料日期2”，“发料日期3”的日期必须是不同的，例如如果输入"实发支数_3"时，判断当前日期是否和“发料日期1”和“发料日期2”相同，如果相同则该单元格锁定或无法输入。
加好友 
发短信
Post By：2019/7/12 15:32:00 [显示全部帖子]
