和这个类似
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65369
在缴证信息 DataColChanged事件
if e.datacol.name="学生编号" andalso e.datarow.isnull("学生编号")=false then
dim dr as datarow = datatables("学生信息").find("学生编号='" & e.datarow("学生编号") & "'")
if dr isnot nothing then
dr("缴证情况")="已缴"
end if
end if