主题：[求助]

我想在考勤表中自动加载员工信息表，一天只加载一次，下边的这个代码如何修改

For Each dr As DataRow In DataTables("员工信息表").DataRows   
    Dim dr2 As DataRow
    dr2 = DataTables("考勤表").AddNew()
    dr2("岗位代码") =  dr("岗位代码")   
    dr2("岗位") =  dr("岗位")   
    dr2("姓名") =  dr("姓名")   
   Next