|
Select Case e.DataCol.name
Case "日期"
If e.NewValue Is Nothing Then
e.DataRow("结算日期") = Nothing
ElseIf e.DataRow("出发地") = "上海"
Dim dt As Date = e.NewValue
If dt.Day > 20 Then '如果为25日以后的日期
dt = new Date(dt.year,dt.month,1) '改为下个月的第一天
dt= dt.AddMonths(1)
End If
ElseIf e.DataRow("出发地") = "天津"
Dim dt As Date = e.NewValue
If dt.Day > 15 Then '如果为25日以后的日期
dt = new Date(dt.year,dt.month,1) '改为下个月的第一天
dt= dt.AddMonths(1)
End If
e.DataRow("结算日期") = dt
ElseIf e.DataRow("出发地") Like "*苏州*" OrElse e.DataRow("出发地") Like "*无锡*" OrElse e.DataRow("出发地") Like "*常州*" OrElse e.DataRow("出发地") Like "*扬州*"
Dim dt As Date = e.NewValue
If dt.Day > 31 Then '如果为25日以后的日期
dt = new Date(dt.year,dt.month,1) '改为下个月的第一天
dt= dt.AddMonths(1)
End If
e.DataRow("结算日期") = dt
End If
End Select
|
加好友 
发短信
Post By：2019/7/1 14:36:00 [显示全部帖子]
