表A,datacolchanged事件
if e.datacol.name = "A"
dim dr as datarow = datatables("表B").find("A='" & e.datarow("A") & "'")
if dr isnot nothing then
if dr.isnull("B") = false and r.isnull("C") = false
e.datarow("D") = dr("D")
e.datarow("E") = dr("E")
e.datarow("F") = dr("F")
endif
endif
endif