主题：星期天显示为英语

If DrawGannt AndAlso e.Row.Index >= 0 AndAlso e.Row.Index < Tables("计划表窗口_Table4").Rows.count Then

    Dim r As Row  = Tables("计划表窗口_Table4").Rows(e.Row.Index)

    Dim dt As Date = e.Col.Name.Replace("year","-").Replace("month_","-").split("_")(0)

    If r.IsNull("计划_开始日期") OrElse r.IsNull("计划_完成日期") Then

    Else

        

        Dim dt1 As Date = r("计划_开始日期")

        Dim dt2 As Date = r("计划_完成日期")

        If dt>=dt1 AndAlso dt<=dt2 Then

            e.StartDraw()

            If dt < Date.Today Then

                e.Graphics.FillRectangle(Brushes.Cyan,e.x ,e.y + 1, e.Width, e.Height - 5)

            Else

                e.Graphics.FillRectangle(Brushes.Cyan,e.x ,e.y + 1, e.Width, e.Height - 5)

            End If

            e.EndDraw()

        End If

    End If

    

    If r.IsNull("进行_开始日期")=False Then

        Dim dt3 As Date = r("进行_开始日期")

        Dim dt4 As Date = iif(r.Isnull("进行_完成日期"), Date.Today, r("进行_完成日期"))

        If dt>=dt3 AndAlso dt<=dt4 Then

            e.Graphics.FillRectangle(Brushes.Blue,e.x ,e.y + 4, e.Width, e.Height - 11)

        End If

    End If

    Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "' and 处理状态='未处理'")

    If fdr IsNot Nothing Then

        'e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y, e.Width, e.Height) '方形

        e.Graphics.FillPie(Brushes.Red,e.x ,e.y, e.Width, e.height,0,360) '原形

    End If

End If