Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在A表计算x+Y列有效日期范围，并符合s周期需求，再在B表生成行并赋值！【已解决】


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

主题：[求助]在A表计算x+Y列有效日期范围，并符合s周期需求，再在B表生成行并赋值！【已解决】
帅哥哟，离线，有人找我吗？
Bin
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/27 15:08:00 [只看该作者]

你的日期本来就是根据 结束日期和开始日期算出来的啊.不明白你要筛选什么?  取最大的日期?

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


加好友 发短信
等级：婴狐 帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00 		  发帖心情 Post By：2015/4/27 15:14:00 [只看该作者]

就是如下图：

结束日期-起始日期=日期池 24 25 26 27 28 29 30，
再根据【总表】->【周期】列“周一 周三 周四 周五 周日”的日期 筛出最后日期！


此主题相关图片如下：1234123213.jpg
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/27 15:16:00 [只看该作者]

意思是筛选出2015-04-30的这一行?

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/27 15:25:00 [只看该作者]

DataTables("计划生成表").DataRows.Clear
Dim drs As List(Of DataRow)
drs = DataTables("总表").Select("[需换钱否] = True")
For Each dr As DataRow In drs
    Dim t As TimeSpan = dr("结束日期") - dr("起始日期")
    
    For i As Integer = 1 To t.TotalDays
        Dim d As Date = Cdate(dr("起始日期")).AddDays(i)
        Dim dw As Integer = IIF(d.DayOfWeek=0,7,d.DayOfWeek)
        If dr("周期").Contains(dw) Then
            Dim dr2 As DataRow = DataTables("计划生成表").AddNew()
            dr2("执行日期")= d
            dr2("ID编号")=dr("ID编号")
            dr2("有效任务编号")=dr("有效任务编号")
            dr2("原始地")=dr("原始地")
            dr2("目的地")=dr("目的地")
            dr2("筛币种")=dr("筛币种")
        End If
    Next
Next

这个意思是吧
 回到顶部
帅哥哟，离线，有人找我吗？
foxbable_saber
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00 		  发帖心情 Post By：2015/4/27 15:31:00 [只看该作者]

意思是：

 Dim t As TimeSpan = dr("结束日期") - dr("起始日期")    ’这里结果是符合 “开始到结束” 所有日期！！！
我需要再加段代码：在日期范围内比较符合【周期】列，（比如周期列是: "12.45.7",那么需要筛出“24~30”范围内，是周一 、周二、周四、周五、周日）的日期，也就是 24、26、27、28、30日期符合周期的日期！！！
最后添加行，赋值。
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/27 15:32:00 [只看该作者]

看看14楼.

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


加好友 发短信
等级：婴狐 帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00 		  发帖心情 Post By：2015/4/27 15:35:00 [只看该作者]

对对，是这么个意思，爱死你了！图片点击可在新窗口打开查看

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