Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "实发_支数1"
If dr.IsNull("实发_支数1") = False Then
dr("实发_日期1") =Date.today
Else
If dr.IsNull("实发_支数1") Then
dr("实发_日期1") = Nothing
End If
End If
Case "实发_支数2"
If dr.IsNull("实发_支数2") = False ) Then
dr("实发_日期2") =Date.today
Else
dr("实发_日期2") = Nothing
If e.oldvalue <> Nothing
dr("实发_日期1") = Date.Today
End If
End If
Case "实发_支数3"
If dr.IsNull("实发_支数3") = False Then
dr("实发_日期3") =Date.today
Else
dr("实发_日期3") = Nothing
If e.oldvalue <> Nothing
dr("实发_日期2") = Date.Today
End If
End If
End Select
加好友 
发短信
Post By：2019/8/15 8:36:00 [显示全部帖子]
