If e.DataCol.name = "日期" Then
If e.oldvalue <> Nothing AndAlso e.newvalue <> Nothing Then
e.DataRow("事宜") = "变更"
Dim dr As DataRow = DataTables("表A").find("日期 = #" & e.DataRow("日期") & "#")
e.DataRow("休息人员") = iif(dr.Isnull("休息人员"),"",dr("休息人员"))
End If
End If
如果日期列最后一行,改成 2019-01-19 或 2019-01-20, 休息人员为什么不为空呢?
中间2句改成:
If dr IsNot Nothing
e.DataRow("休息人员") = dr("休息人员")
Else
e.DataRow("休息人员") = ""
End If
也不行。。。。。。。。
[此贴子已经被作者于2019/1/14 17:59:47编辑过]