主题：如何弄排班表？

 哦，那你就改一下呗

增加个上周和下周按钮代码，如何定？ 

下周，上周同理

 

Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w).AddDays(7) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w).AddDays(7) '获取本周的最后一天

Dim ndt As new DataTableBuilder("排版表")
ndt.AddDef("姓名", Gettype(String))
Dim dt_temp = dt1
Do While dt_temp <= dt2
    ndt.AddDef(dt_temp, Gettype(String), 32, "", dt_temp & "_" & WeekDayName(dt_temp.DayOfWeek+1))
    dt_temp = dt_temp.AddDays(1)
Loop

Dim t As Table = e.Form.Controls("Table1").Table
t.DataSource = ndt.BuildDataSource

Dim dt As DataTable = DataTables("排班")

For Each xm As String In dt.GetValues("姓名", "日期 >= #" & dt1 & "# and 日期 <= #" & dt2 & "#")
    Dim nr As Row = t.AddNew
    nr("姓名") = xm
    For Each dr As DataRow In dt.Select("姓名 = '" & xm & "' and 日期 >= #" & dt1 & "# and 日期 <= #" & dt2 & "#")
        nr(dr("日期")) = dr("排班")
    Next
Next

Dim dmp As New TableDataMap
dmp.DataTable = "排班类别" '指定数据来源表
dmp.ValueCol = "编号" '指定取值列
dmp.DisplayCol = "排班" '指定显示列
dmp.ListCols = "排班"
dmp.Sort = "编号" '指定排序方式
For i As Integer = 1 To t.Cols.Count - 1
    t.Cols(i).DataMap = dmp.CreateDataMap() '生成并设置DataMap
Next

t.AllowEdit = True

这个上周我知道 ，我是想点上周后，出现上周，上上周、上上上周等出现，不断出现

 用一个变量记录日期，每点一次，就添加天数-7

 

 http://www.foxtable.com/help/topics/0325.htm