错误提示也不说,也不告诉怎样操作出错,只能蒙一下:
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
[此贴子已经被作者于2012-2-16 17:52:45编辑过]