DataTables("考勤表").LoadFilter = "日期 = #" & Date.Today & "#"
DataTables("考勤表").Load
If DataTables("考勤表").DataRows.count = 0 Then
For Each dr As DataRow In DataTables("员工信息表").DataRows
Dim dr2 As DataRow
dr2 = DataTables("考勤表").AddNew()
dr2("岗位代码") = dr("岗位代码")
dr2("岗位") = dr("岗位")
dr2("姓名") = dr("姓名")
Next
End If
[此贴子已经被作者于2016/7/26 19:49:10编辑过]