老师,主要问题应该是在这两段代码上,现在是能够计算出“一拍启动到期日”,但不能计算出“二拍启动到期日”和“变卖启动到期日”,如何解决?
Select Case e.DataCol.Name
Case "一拍启动到期日","标的物类型"
If e.DataRow("标的物类型") = "动产" Then
If e.DataRow.IsNull("二拍启动到期日") Then
e.DataRow("二拍启动到期日") = Nothing
Else
e.DataRow("二拍启动到期日") = e.DataRow("一拍启动到期日").AddDays(45)
End If
End If
If e.DataRow("标的物类型") = "不动产" Then
If e.DataRow.IsNull("二拍启动到期日") Then
e.DataRow("二拍启动到期日") = Nothing
Else
e.DataRow("二拍启动到期日") = e.DataRow("一拍启动到期日").AddDays(60)
End If
End If
End Select
Select Case e.DataCol.Name
Case "二拍启动到期日","标的物类型"
If e.DataRow("标的物类型") = "动产" Then
If e.DataRow.IsNull("变卖启动到期日") Then
e.DataRow("变卖启动到期日") = Nothing
Else
e.DataRow("变卖启动到期日") = e.DataRow("二拍启动到期日").AddDays(22)
End If
End If
If e.DataRow("标的物类型") = "不动产" Then
If e.DataRow.IsNull("变卖启动到期日") Then
e.DataRow("变卖启动到期日") = Nothing
Else
e.DataRow("变卖启动到期日") = e.DataRow("二拍启动到期日").AddDays(30)
End If
End If
End Select
[此贴子已经被作者于2019/6/28 7:48:13编辑过]