-- 作者:有点甜
-- 发布时间:2019/6/20 9:36:00
--
datacolchanged事件
If e.datacol.name = "客户名" Then
Dim pdr As DataRow = e.DataTable.Find("结束时间 is not null and 客户名 = \'" & e.datarow("客户名") & "\'", "_Identify desc")
If pdr IsNot Nothing Then
e.datarow("开始时间") = pdr("结束时间")
End If
End If
|