主题：工作记录表设计

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