楼主：在人员调动表的DATACOLCHANGED中加入这段代码
if e.datacol.name ="调后部门" then
dim dr as datarow =datatables("人事档案").find("员工编号 ='" & e.datarow("员工编号") & "'") ‘在档案表中找到编号与调动表中编号相同的人的数据行
if dr isnot nothing then
dr("部门") = e.datarow("调后部门")
end if
另：你的员工档案表中应该有员工编号列吧，我在你的截图上没找到，但想来应该是有的
加好友 
发短信
Post By：2011/12/25 9:19:00 [显示全部帖子]
