主题：关于请教自动取值的问题

说说我的思路：

有两个表：“人员档案”和“人员调动”，相关列如下图：

 

此主题相关图片如下：qq截图20111224175141.jpg


此主题相关图片如下：qq截图20111224175155.jpg

我想实现的是：如果我“人员档案”表的“部门”列发生改变时，“人员调动”表不发生任何改变，但当“人员调动”表的“调动后部门”发生变动时，“人员档案”的“部门”列自动取“调动后部门”列的值。

请问各位前辈，怎么实现呢？

楼主：在人员调动表的DATACOLCHANGED中加入这段代码

 

if e.datacol.name ="调后部门" then

       dim dr as datarow =datatables("人事档案").find("员工编号 ='" & e.datarow("员工编号") & "'") ‘在档案表中找到编号与调动表中编号相同的人的数据行

       if dr isnot nothing then

              dr("部门") = e.datarow("调后部门")

       end if

end if

 

另：你的员工档案表中应该有员工编号列吧，我在你的截图上没找到，但想来应该是有的

嗯，有员工编号的

感谢小猪鑫鑫，测试了一下，问题搞定了，灰常感谢~~~