主题：[求助]

遍历新增就行了!

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