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

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