Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:关于请教自动取值的问题

1楼
小小鸟 发表于:2011/12/24 18:05:00

说说我的思路:

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

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20111224175141.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20111224175155.jpg
图片点击可在新窗口打开查看

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

请问各位前辈,怎么实现呢?

2楼
小猪鑫鑫 发表于: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

 

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

3楼
小小鸟 发表于:2011/12/25 11:14:00

嗯,有员工编号的

4楼
小小鸟 发表于:2011/12/25 11:18:00
图片点击可在新窗口打开查看感谢小猪鑫鑫,测试了一下,问题搞定了,灰常感谢~~~图片点击可在新窗口打开查看
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.