- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]小白求助，如何把总表符合条件行输出到其它内表（根据日期范围+周几判断后输出）！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67377)
-- 发布时间：2015/4/23 9:42:00
-- [求助]小白求助，如何把总表符合条件行输出到其它内表（根据日期范围+周几判断后输出）！
如题：
此主题相关图片如下：excel.jpg
-- 发布时间：2015/4/23 9:44:00
--
参考帮助http://www.foxtable.com/help/topics/1533.htm
-- 发布时间：2015/4/23 10:17:00
--
bin大：
（数据填充倒是可理解）
我主要是想理解如何实现，根据总表“【起始日期】、【结束日期】、【周期】"列，生成“符合日期范围内+星期几”具体日期进行填充？这个怎么实现？
顺序肯定是：
1、先需要筛选【需换钱否】为真的行！
2、计算“起始日期、结束日期”范围；依据【周期】表格参数，筛选符合【周期】的具体日期，统计总个数，在【计划生成表】添加”总数行“，最后把具体日期填入【计划生成表】列每一行。回填符合【有效任务编号】后面的相关列内容。
循环....
计算最后一个【需换钱】行，.....生成日期回填。
完成。
-- 发布时间：2015/4/23 10:18:00
--
1. 利用Select http://www.foxtable.com/help/topics/0400.htm
2.没看懂.
-- 发布时间：2015/4/23 11:21:00
--
老大，如下图所示
此主题相关图片如下：excel.jpg
[此贴子已经被作者于2015/4/23 11:28:46编辑过]
-- 发布时间：2015/4/23 11:30:00
--
Dim drs As List(Of DataRow)
drs = DataTables("总表").Select("[需换钱否] = True)
For Each dr As Datarow In drs
for each drr as datarow in datatables("计划生成表").select("有效任务编号=\'" & dr("有效任务编号") & "\' and 执行日期>=#" & dr("起始日期") & "# and 执行日期<=#" & dr("结束日期") & "#")
\'drr 就是你想要的行了.怎么添加填充你随意控制.
next
Next
Next
-- 发布时间：2015/4/23 13:20:00
--
V5 厉害
我消化消化，这个貌似”最关键“一个代码！其它随便 if 。哈哈哈