- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于请教自动取值的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15416)
-- 发布时间：2011/12/24 18:05:00
-- 关于请教自动取值的问题
说说我的思路：
有两个表：“人员档案”和“人员调动”，相关列如下图：
此主题相关图片如下：qq截图20111224175141.jpg
此主题相关图片如下：qq截图20111224175155.jpg
我想实现的是：如果我“人员档案”表的“部门”列发生改变时，“人员调动”表不发生任何改变，但当“人员调动”表的“调动后部门”发生变动时，“人员档案”的“部门”列自动取“调动后部门”列的值。
请问各位前辈，怎么实现呢？
-- 发布时间：2011/12/25 9:19:00
--
楼主：在人员调动表的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
另：你的员工档案表中应该有员工编号列吧，我在你的截图上没找到，但想来应该是有的
-- 发布时间：2011/12/25 11:14:00
--
嗯，有员工编号的
-- 发布时间：2011/12/25 11:18:00
--
感谢小猪鑫鑫，测试了一下，问题搞定了，灰常感谢~~~