主题：工作记录表设计

Dim dt As DataTable = e.DataTable

If dt.DataRows(dt.DataRows.Count - 2)("状态") = "办理中" Then

在：下周工作计划：列输入完成后添加一行，添加的行执行下面代码的内容。在里面重复输入不添加行，只做修改，

    e.DataRow("事件编号") = dt.DataRows(dt.DataRows.Count - 2)("事件编号")

    e.DataRow("本周工作目标") = dt.DataRows(dt.DataRows.Count - 2)("下周工作计划")

    e.DataRow("周数") = DatePart("ww",Date.Today)

    e.DataRow("显示时间日期") = Date.Today

End If

Dim s As String = e.Form.Controls("Label11").Text

Dim t As Table = e.Form.Controls("Table5") Table

Select s

    Case "本周计划"

        s = "上周计划"

        t.Filter = "本周周数 = " & DatePart("ww",Date.Today.AddDays(- 7))

    Case "上周计划"

        s = "第" & Format(DatePart("ww",Date.Today.AddDays(- 14)),"00") & "周计划"

        t.Filter = "本周周数 = " & DatePart("ww",Date.Today.AddDays(- 14))

    Case "下周计划"

        s = "本周计划"

        t.Filter = "本周周数 = " & DatePart("ww",Date.Today)

    Case Else

        Dim i As String = s.SubString(s.IndexOf("第") + 1,s.IndexOf("周") - s.IndexOf("第") - 1)

        If val(i) > 1 Then

            If Val(i) = DatePart("ww",Date.Today) + 1 Then

                s = "本周计划"

                t.Filter = "本周周数 = " & DatePart("ww",Date.Today)

            ElseIf Val(i) = DatePart("ww",Date.Today) + 2 Then

                s = "下周计划"

                t.Filter = "本周周数 = " & DatePart("ww",Date.Today.AddDays(7))

            Else

                s = s.Replace(i,Format(Val(i - 1),"00"))

                t.Filter = "本周周数 = " & i - 1

            End If

        End If

End Select

e.Form.Controls("Label11").Text = s