- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 想做个一周派工一键生成，不知道怎么做，有没有HELPER. (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65794)
-- 发布时间：2015/3/23 11:43:00
-- 想做个一周派工一键生成，不知道怎么做，有没有HELPER.
现在我做的派工，只能生成一天的。看我的案例
先选择日期，然后再选择 老客户，就会调出 客户数据 表里面当天的客户，就这样一天一天的往下排派工表。
能不能做一个 一周派工一键生成，就是把一周的客户按照日期排出来，按一下就生成一周的，再按一下，就生成下一周的，以此类推。
没有代码思路，不知道行不行。
-- 发布时间：2015/3/23 11:46:00
--
没看懂.你要怎么派工
-- 发布时间：2015/3/23 11:47:00
--
自动增加7行,从星期一到星期日没问题,其余的没看明白
-- 发布时间：2015/3/23 11:47:00
--
而且你每天的时间段啊什么的都不规律的,不知道你要怎么自动生成一周
-- 发布时间：2015/3/23 11:48:00
--
我现在是一天一天的这样派工，我想做个按钮，一键生成一周派工。按一下就生成一周的，再按一下就生成下一周的，以此类推。我也觉得很难表达清楚。
-- 发布时间：2015/3/23 11:52:00
--
你自己的业务你自己最清楚,我们只能根据你的业务提供技术指导.
-- 发布时间：2015/3/23 15:52:00
--
你会生成一天的，生成一周的也是一样啊，不过就是一个循环执行按天生成的代码而已。
另外尽量描述清楚问题，不好描述的，就举例说明。
你一个文件传上来，也没有说明，别人很难理解的。
-- 发布时间：2015/3/23 19:33:00
--
这比较难，用一排课软件可解决楼主问题。
-- 发布时间：2015/3/26 16:45:00
--
以下是引用狐狸爸爸在2015/3/23 15:52:00的发言：
你会生成一天的，生成一周的也是一样啊，不过就是一个循环执行按天生成的代码而已。
另外尽量描述清楚问题，不好描述的，就举例说明。
你一个文件传上来，也没有说明，别人很难理解的。
TIANTIAN， 帮我一下可以吗
-- 发布时间：2015/3/26 17:00:00
--
本周
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt As Date = Date.Today.AddDays(-w+1) \'获取本周的第一天
For i As Integer = 0 To 6
Dim ndr As DataRow = DataTables("派工表").AddNew
ndr("日期") = dt.AddDays(i)
ndr("新老客户") = "老客户"
Next
下周
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt As Date = Date.Today.AddDays(-w+1).AddDays(7) \'获取本周的第一天
For i As Integer = 0 To 6
Dim ndr As DataRow = DataTables("派工表").AddNew
ndr("日期") = dt.AddDays(i)
ndr("新老客户") = "老客户"
Next