以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何向表中自动添加数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23014)
--  作者：lfxxdt
--  发布时间：2012/8/30 10:54:00
--  如何向表中自动添加数据
我编制了《员工档案表》和《员工出勤表》，我想在《员工出勤表》窗口上点击添加按钮后，能够自动将《员工档案表》中某一工序的所有员工姓名全部添加了《员工出勤表》中，特请教该如何编写代码。
--  作者：狐狸爸爸
--  发布时间：2012/8/30 14:28:00
--  

Dim nms As List(of String) = DataTables("员工档案表").GetUniqueValues("工序 = \'某某工序\'","姓名")
For Each nm As String In nms
    Dim dr As DataRow = DataTables("员工出勤表").AddNew()
    dr("姓名") = nm
Next