老师，主要问题应该是在这两段代码上，现在是能够计算出“一拍启动到期日”，但不能计算出“二拍启动到期日”和“变卖启动到期日”，如何解决？
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编辑过]
加好友 
发短信
Post By：2019/6/28 7:24:00 [只看该作者]
