主题：能不能多一个星期

能不能在第二列显示周数的时候 多显示一周 让每个星期的节点是 星期天的24点（相当于要过星期天才能算下一周）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:周期多一周.table

Select e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull(e.DataCol) = False Then
            Dim d As Date = Date.Today
            Dim start As Date = new Date(d.Year, 1, 1)
            start = start.AddDays(1-start.DayOfWeek)
            e.DataRow("第二列") = Math.Ceiling(((d- start).TotalDays + 1) / 7)
            e.DataRow("第三列") = Date.Today
        End If
End Select

点击浏览该文件:工作记录学习.table

有点甜兄弟  我能不能设置为在多加一个星期  比如 明天记录的时候 表就显示18的周了 因为第二列是记录下个星期的周期 。感谢 吃饭了没得！

 是这个意思？

 

Select e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull(e.DataCol) = False Then
            Dim d As Date = Date.Today
            Dim start As Date = new Date(d.Year, 1, 1)
            start = start.AddDays(1-start.DayOfWeek)
            Dim zq As Integer = Math.Ceiling(((d- start).TotalDays + 1) / 7) + 1
            If d.DayOfWeek = 0 Then
                zq += 1
            End If
            e.DataRow("第二列") = zq
            e.DataRow("第三列") = Date.Today
        End If
End Select

Select e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull(e.DataCol) = False Then
            e.DataRow("第二列") = DatePart("ww",Date.Today.AddDays(6))
            e.DataRow("第三列") = Date.Today
        End If
End Select

实在是不好意思 ！刚才搞错被过昏了！

6楼就是你的意思。明天，第二列就会显示18