“表B" datacolchanged事件
if e.datacol.name = ”日期“ orelsee.datacol.name = ”实时标注“ then
dim dr as datarow = datatables("表A").find("身份证='" & e.datarow("身份证') & "'")
if dr isnot nothing then
dim dr2 as datarow = e.datatable.find("身份证='" & e.datarow("身份证') & "'","日期 desc")
if dr2 isnot nothing then
dr("标注") = dr2("实时标注")
end if
end if
end if