- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请教从子表指定列提取不重复的值填充到父表指定列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126713)
-- 发布时间：2018/10/27 0:09:00
-- [求助]请教从子表指定列提取不重复的值填充到父表指定列
各位老师，有一个人事方面的项目，项目中有两个表，一个是人员信息表，另一个是任职经历表，二者建立了关联，人员信息表是父表，任职经历表是子表（表结构见附图）。在人员信息窗口，设计了一个任职经历录入窗口（窗口见附图），现在我想在任职经历录入完成后，点击填充历任职务按钮，把人员信息表当前行人员在任职经历表中的所有不重复职务（实际任职在不同时间有重复现象）填充到人员信息表中，使人员信息表中的历任职务列不用手动输入。查遍了使用帮助，也找不到方法，请老师指点并帮助写一下代码。麻烦了，谢谢！
此主题相关图片如下：360截图20181027001327431.jpg
此主题相关图片如下：360截图20181027000806107.jpg
[此贴子已经被作者于2018/10/27 0:18:03编辑过]
-- 发布时间：2018/10/27 8:56:00
--
Tables("人员信息表").Current("历任职务") = DataTables("任职经历表").GetComboListString("职务","身份证号 = \'" & e.Form.controls("身份证号控件").text & "\'")
-- 发布时间：2018/10/27 9:06:00
--
问题解决，感谢有点蓝老师！
FT技术团队各位老师是我们坚强的后盾
-- 发布时间：2019/3/6 18:37:00
--
再次请教各位老师：
我想在上图的任职经历录入窗口，待全部人员的任职经历录入结束后，点击填充历任职务按钮，把所有人员的历任职务都一次填充到人员信息表的历任职务列中，由于不得要领，写的代码改了几次都 不行，请帮我看看该代码怎么写。下面的代码让老师们见笑了，不好意思，呵呵
For Each r As List(Of DataRow) In DataTables("在职人员信息表").DataRows
r = DataTables("工作经历信息表").GetComboListString("职务","身份证号 = dataTables("在职人员信息表").Current("身份证号")")
Next
-- 发布时间：2019/3/6 18:47:00
--
For Each r As DataRow In DataTables("在职人员信息表").DataRows
r("某列") = DataTables("工作经历信息表").GetComboListString("职务","身份证号 = \'" & r("身份证号") & "\'")
Next
-- 发布时间：2019/3/6 18:52:00
--
有点甜老师，回复真快，谢谢！我这就云试试
这么晚还在值班，辛苦了！
-- 发布时间：2019/3/6 19:05:00
--
可以了，再次感谢有点甜老师！