主题：[求助]

 考勤表，不是应该有日期列的么？判断一下有没有今天的日期就行了

Dim fdr As DataRow = DataTables("考勤表").Find("日期 = #" & Date.Today & "#")

If fdr Is Nothing Then
   
    For Each dr As DataRow In DataTables("员工信息表").DataRows
        Dim dr2 As DataRow
        dr2 = DataTables("考勤表").AddNew()
        dr2("岗位代码") =  dr("岗位代码")
        dr2("岗位") =  dr("岗位")
        dr2("姓名") =  dr("姓名")
        dr2("日期")= Date.today
    Next
   
End If