以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]加载重复  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88082)
--  作者：g1j2h3
--  发布时间：2016/7/26 17:57:00
--  [求助]加载重复

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

   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
--  作者：大红袍
--  发布时间：2016/7/26 18:03:00
--  

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编辑过]
--  作者：g1j2h3
--  发布时间：2016/7/26 18:35:00
--  

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

 

[此贴子已经被作者于2016/7/26 18:54:21编辑过]
--  作者：g1j2h3
--  发布时间：2016/7/26 18:58:00
--  

 

[此贴子已经被作者于2016/7/26 19:03:30编辑过]
--  作者：大红袍
--  发布时间：2016/7/26 19:49:00
--  

写错

 

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