主题：根据更改列进行计算

这样改

 If e.DataCol.Name = "安装日期" Then
    If e.DataRow.IsNull("安装日期") Then
        e.DataRow("过保日期") = Nothing
    Else     
        Dim fdr As DataRow = DataTables("订单表").Find("订单号列 = '" & e.DataRow("订单号") & "'")
        If fdr IsNot Nothing Then
            e.DataRow("过保日期") = e.DataRow("安装日期") + fdr("维保年限列") * 365
        End If
    End If
End If