执行指挥中心_DataColChanged
Select Case e.DataCol.Name
Case "收案日期"
If e.DataRow.IsNull("收案日期") Then
e.DataRow("执行通知书到期日") = Nothing
Else
e.DataRow("执行通知书到期日") = e.DataRow("收案日期").AddDays(7)
End If
End Select
Select Case e.DataCol.Name
Case "财产价格确定时间"
If e.DataRow.IsNull("财产价格确定时间")
Then
e.DataRow("一拍启动到期日") =
Nothing
Else
e.DataRow("一拍启动到期日") =
e.DataRow("财产价格确定时间").AddDays(30)
End If
End Select
Select Case e.DataCol.Name
Case "一拍启动到期日","标的物类型"
If e.DataRow.IsNull("一拍启动到期日")
OrElse e.DataRow.IsNull("标的物类型") Then
e.DataRow("二拍启动到期日") =
Nothing
Else
If e.DataRow("标的物类型") =
"动产" Then
e.DataRow("二拍启动到期日")
= e.DataRow("一拍启动到期日").AddDays(45)
ElseIf e.DataRow("标的物类型")
= "不动产" Then
e.DataRow("二拍启动到期日")
= e.DataRow("一拍启动到期日").AddDays(60)
End If
End If
End Select
Select Case
e.DataCol.Name
Case "二拍启动到期日","标的物类型"
If e.DataRow.IsNull("二拍启动到期日")
OrElse e.DataRow.IsNull("标的物类型") Then
e.DataRow("变卖启动到期日") =
Nothing
Else
If e.DataRow("标的物类型") = "动产"
Then
e.DataRow("变卖启动到期日")
= e.DataRow("二拍启动到期日").AddDays(22)
ElseIf e.DataRow("标的物类型")
= "不动产" Then
e.DataRow("变卖启动到期日")
= e.DataRow("二拍启动到期日").AddDays(30)
End If
End If
End Select
Select Case
e.DataCol.Name
Case "查扣冻时间","查扣冻期限"
If e.DataRow.IsNull("查扣冻时间")
Then
e.DataRow("绝对到期时间") =
Nothing
Else
e.DataRow("绝对到期时间") =
e.DataRow("查扣冻时间").AddDays(e.DataRow("查扣冻期限"))
End If
End Select