Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]时段比较求助


  共有3866人关注过本帖树形打印复制链接

主题：[求助]时段比较求助
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 15:14:00 [显示全部帖子]

请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 16:03:00 [显示全部帖子]

代码没有问题，用法也没有问题。应该是您自己的逻辑没有理顺，修改时间 < '" & dr("修改时间") & "' 条件并没有失效，是因为表格数据没有符合条件的数据。

比如第一次导入修改时间为2018-05-05 09:54:00，那么再判断【修改时间 < '2018-05-05 09:54:00'】肯定是不符合条件的，因为【修改时间 = '2018-05-05 09:54:00'】
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 16:36:00 [显示全部帖子]

怎么样才算是【如果 修改时间 更近 才导入】？ -- 这个逻辑没搞清楚。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 17:04:00 [显示全部帖子]

For Each dr As DataRow In DataTables("es导出日历").DataRows
    'Dim fdr As DataRow = DataTables("日历").find("创建日期 = '" & dr("创建日期") & "'")
    Dim fdr As DataRow = DataTables("日历").Find("创建日期 = '" & dr("创建日期") & "' and 主题 = '" & dr("主题") & "'  and 开始时间 = '" & dr("开始时间") & "' and 修改时间 <= '" & dr("修改时间") & "'","修改时间 desc")
    If fdr Is Nothing Then
        fdr = DataTables("日历").addnew
    ElseIf fdr("修改时间") = dr("修改时间")
        Continue For
    End If
    fdr("创建日期") = dr("创建日期")
    fdr("主题") = dr("主题")
    fdr("修改时间") = dr("修改时间")
    fdr("笔记") = dr("笔记")
    fdr("开始时间") = dr("开始时间")
    fdr("结束时间") = dr("结束时间")
    fdr("位置") = dr("位置")
    fdr("分类") = dr("分类")
    fdr("标签") = dr("标签")
    fdr("优先级") = dr("优先级")
    fdr("完成") = dr("完成")
    fdr("已完成") = dr("已完成")
    fdr("提醒") = dr("提醒")
    fdr("重复") = dr("重复")
    fdr("持续时间") = dr("持续时间")
    fdr("附件") = dr("附件")
    fdr("条目类型") = dr("条目类型")
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 17:41:00 [显示全部帖子]

For Each dr As DataRow In DataTables("es导出日历").DataRows
        fdr = DataTables("日历").addnew
    fdr("创建日期") = dr("创建日期")
fdr("修改时间") = date.now
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 20:20:00 [显示全部帖子]

没看懂，请举例说明

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询