主题：如何向表中自动添加数据

我编制了《员工档案表》和《员工出勤表》，我想在《员工出勤表》窗口上点击添加按钮后，能够自动将《员工档案表》中某一工序的所有员工姓名全部添加了《员工出勤表》中，特请教该如何编写代码。

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