主题：多层嵌套查找计算

Dim dt As DataTable = Args(0)

Dim 合同编号 As String = Args(1)

Dim dr As DataRow = dt.find("合同编号 = '" & 合同编号 & "'")

If dr IsNot Nothing Then

    If dr.Isnull("新合同编号") Then

        Return dr("截止日期")

    Else

        Return Functions.Execute("GetDate",dt,dr("新合同编号") )

    End If

Else

    Return Nothing

End If

If e.DataCol.name = "合同编号" Then

    Dim d = Functions.Execute("GetDate",DataTables("合同明细"),e.DataRow("合同编号"))

    If d IsNot Nothing Then e.DataRow("截止日期") = d

End If