变更最近的周二或周五 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cname As String = e.DataCol.name
If cname.contains("序_工程名") OrElse cname.contains("序_配膳日") OrElse cname.contains("序_结束日") Then
    If e.DataRow("类别") = "计划" Then
        Dim n As Integer = cname.indexof("序_")
        n = cname.substring(1,n-1)
        If e.DataRow("第" & n & "序_工程名") = "CA3" Then
            Dim d As Date = e.DataRow("第" & n & "序_配膳日")
            For i As Integer = 0 To 6
                d = d.AddDays(i)
                If d.DayOfWeek = 2 OrElse d.DayOfWeek = 5 Then
                    e.DataRow("第" & n & "序_结束日") = d
                    Exit For
                End If
            Next
        End If
    End If
End If

主题：变更最近的周二或周五