Select Case e.DataCol.name Case "总值","利率","分期" If e.DataRow.IsNull("总值") OrElse e.DataRow.IsNull("利率") OrElse e.DataRow.IsNull("分期") Then e.DataRow("付款2") = Nothing e.DataRow("付款4") = Nothing Else e.DataRow("付款2") = Format(e.DataRow("总值") * e.DataRow("利率") / e.DataRow("分期"), "#.00") e.DataRow("付款4") = e.DataRow("总值") * e.DataRow("利率") / e.DataRow("分期") End If End Select
|