比如datacolchanged事件
If e.DataCol.Name = "量表名称" Then
Dim dr As DataRow = e.DataTable.find("量表名称='" & e.DataRow("量表名称") & "' and 本次抄表日期 is not null and _Identify<>" & e.DataRow("_Identify") ,"本次抄表日期 desc")
If dr Is not Nothing Then '如果找到的话
e.DataRow("上次抄表日期") = dr("本次抄表日期")
e.DataRow("上次抄表读数") = dr("上次抄表读数")
End If
End If