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

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("安装日期").AddYears(fdr("维保年限列"))
        End If
    End If
End If

http://www.foxtable.com/help/topics/1424.htm

http://www.foxtable.com/help/topics/1337.htm