主题：[求助]加载重复

如何加载只加载当天的内容，再次登录时，不再重新加载今天的

   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("姓名")   
   Next
End If