错误提示也不说,也不告诉怎样操作出错,只能蒙一下:
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