主题：帮我看一下为什么子表设置父表日期会错误 但父表不会？

跟踪表下
If e.DataRow("设定下次日期")=True Then

Dim rnew As DataRow = DataTables("跟踪").AddNew
rnew("日期")=e.DataRow("下次日期")
rnew("标题")=e.DataRow("标题")
rnew("备注")=e.DataRow("备注")
rnew("联系方式")=e.DataRow("联系方式")
rnew("联系人")=e.DataRow("联系人")

End If

Dim dr As  DataRow = e.DataRow.GetParentRow("跟踪") '获得此产品所有订单
    If dr("最近联系")>e.DataRow("日期") Then
        dr("最近联系")=e.DataRow("日期")
End If

客户表下
Dim drs As List(of DataRow) = e.DataRow.GetChildRows("跟踪") '获得此产品所有订单
For Each dr As DataRow In drs
    If dr("日期")>e.DataRow("最近联系") Then
        e.DataRow("最近联系")=dr("日期")
    End If
Next

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:crm.rar

此主题相关图片如下：未命名.gif

 

错误提示也不说，也不告诉怎样操作出错，只能蒙一下：

 

Dim dr As DataRow = e.DataRow.GetParentRow("跟踪")
If dr("最近联系")>e.DataRow("日期") Then
    dr("最近联系")=e.DataRow("日期")
End If

 

改为：

 

Dim dr As DataRow = e.DataRow.GetParentRow("跟踪")

If dr IsNot Nothing Then 
   If dr("最近联系")>e.DataRow("日期") Then
        dr("最近联系")=e.DataRow("日期")
   End If

End if

 Dim dr As DataRow = e.DataRow.GetParentRow("跟踪")