- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87622)
-- 发布时间：2016/7/15 9:32:00
-- [求助]
如何设置代码使《员工花名册》表中的岗位和姓名列自动填入到考勤表中对应的列，考勤表中的岗位和姓名要连续重复出现两行。
此主题相关图片如下：员工花名册.png
此主题相关图片如下：考勤表.png
-- 发布时间：2016/7/15 9:50:00
--
遍历新增就行了!
For Each dr As DataRow In DataTables("员工花名册").DataRows
Dim dr2 As DataRow
dr2 = DataTables("考勤表").AddNew()
dr2("午别") = "上午"
dr2("岗位") = dr("岗位")
dr2("姓名") = dr("姓名")
dr2 = DataTables("考勤表").AddNew()
dr2("午别") = "下午"
dr2("岗位") = dr("岗位")
dr2("姓名") = dr("姓名")
Next
-- 发布时间：2016/7/15 10:19:00
--
多谢老师！