主题：[求助]加载重复

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

   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

加载不上数据？当天的也没有了。以前是打开一次，加载一次，一天打开N遍，它能加载N次，现在用您提供的代码，是没有加载当天的数据，即便是空的，请老师指教