主题：想做个一周派工一键生成，不知道怎么做，有没有HELPER.

现在我做的派工，只能生成一天的。看我的案例

没看懂.你要怎么派工

自动增加7行,从星期一到星期日没问题,其余的没看明白

而且你每天的时间段啊什么的都不规律的,不知道你要怎么自动生成一周

我现在是一天一天的这样派工，我想做个按钮，一键生成一周派工。按一下就生成一周的，再按一下就生成下一周的，以此类推。我也觉得很难表达清楚。

你自己的业务你自己最清楚,我们只能根据你的业务提供技术指导.

你会生成一天的，生成一周的也是一样啊，不过就是一个循环执行按天生成的代码而已。

另外尽量描述清楚问题，不好描述的，就举例说明。

你一个文件传上来，也没有说明，别人很难理解的。

这比较难，用一排课软件可解决楼主问题。

TIANTIAN， 帮我一下可以吗

 本周

 

 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