主题：项目进度甘特图

此主题相关图片如下：企业微信截图_20180725104226.png

项目进度甘特图

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

点击浏览该文件:项目进度甘特图.table

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

点击浏览该文件:项目进度甘特图.table

图形的条形可以固定衣一个颜色吧  比如蓝色  

Dim cr = e.Table.current
If cr IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim Chart As WinForm.Chart
    Chart= Forms("窗口1").Controls("Chart1")
    Chart.ChartType = ChartTypeEnum.Gantt
    Chart.Inverted = True '对调X轴和Y轴位置
    Chart.AxisY.DateType= True 'Y轴为日期型
    Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
    Dim t1 As Table = Tables("项目")
    Dim t2 As Table = Tables("项目进度")
    Dim min = t2.Compute("min(开始时间)", "项目 = '" & t1.current("项目") & "'")
    Dim max = t2.Compute("max(结束时间)", "项目 = '" & t1.current("项目") & "'")
    Chart.AxisY.MinDate = min
    Chart.AxisY.MaxDate = max '设置Y轴的终止日期
    Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
    chart.AxisX.ClearValueLabel
    Chart.SeriesList.Clear
    Dim i As Integer = 0
    With Chart.SeriesList
        For Each dr As DataRow In t2.DataTable.Select("项目 = '" & t1.current("项目") & "'")
            .AddGanttSeries(dr("进度节点"), dr("开始时间"), dr("结束时间"))
            .AddGanttLabels("M月d日")
            Chart.SeriesList(i).LineColor= Color.Red
            i += 1
        Next
       
    End With
End If

文字固定成黑色呢 老师

Dim cr = e.Table.current
If cr IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim Chart As WinForm.Chart
    Chart= Forms("窗口1").Controls("Chart1")
    Chart.ChartType = ChartTypeEnum.Gantt
    Chart.Inverted = True '对调X轴和Y轴位置
    Chart.AxisY.DateType= True 'Y轴为日期型
    Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
    Dim t1 As Table = Tables("项目")
    Dim t2 As Table = Tables("项目进度")
    Dim min = t2.Compute("min(开始时间)", "项目 = '" & t1.current("项目") & "'")
    Dim max = t2.Compute("max(结束时间)", "项目 = '" & t1.current("项目") & "'")
    Chart.AxisY.MinDate = min
    Chart.AxisY.MaxDate = max '设置Y轴的终止日期
    Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
    chart.AxisX.ClearValueLabel
    Chart.SeriesList.Clear
    Dim i As Integer = 0
   
    Dim bchart = chart.BaseControl
    With Chart.SeriesList
        For Each dr As DataRow In t2.DataTable.Select("项目 = '" & t1.current("项目") & "'")
            .AddGanttSeries(dr("进度节点"), dr("开始时间"), dr("结束时间"))
            .AddGanttLabels("M月d日")
            Chart.SeriesList(i).LineColor= Color.Red
            i += 1
        Next
    End With
    Dim cls = bchart.ChartLabels.LabelsCollection
    For i = 0 To cls.count-1
        cls(i).style.forecolor = Color.black
    Next
End If

如果文字超出范围 希望往后靠  或
此主题相关图片如下：企业微信截图_20180727091607.png

往前靠

Dim cr = e.Table.current
If cr IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim Chart As WinForm.Chart
    Chart= Forms("窗口1").Controls("Chart1")
    Chart.ChartType = ChartTypeEnum.Gantt
    Chart.Inverted = True '对调X轴和Y轴位置
    Chart.AxisY.DateType= True 'Y轴为日期型
    Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
    Dim t1 As Table = Tables("项目")
    Dim t2 As Table = Tables("项目进度")
    Dim min = t2.Compute("min(开始时间)", "项目 = '" & t1.current("项目") & "'")
    Dim max = t2.Compute("max(结束时间)", "项目 = '" & t1.current("项目") & "'")
    Chart.AxisY.MinDate = min
    Chart.AxisY.MaxDate = max '设置Y轴的终止日期
    Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
    chart.AxisX.ClearValueLabel
    Chart.SeriesList.Clear
    Dim i As Integer = 0
   
    Dim bchart = chart.BaseControl
    With Chart.SeriesList
        For Each dr As DataRow In t2.DataTable.Select("项目 = '" & t1.current("项目") & "'")
            .AddGanttSeries(dr("进度节点"), dr("开始时间"), dr("结束时间"))
            .AddGanttLabels("M月d日")
            Chart.SeriesList(i).LineColor= Color.Red
            'Chart.SeriesList(i).DataLabelCompass=LabelCompassEnum.East
            i += 1
        Next
    End With
    Dim cls = bchart.ChartLabels.LabelsCollection
    For i = 0 To cls.count-1
        cls(i).style.forecolor = Color.black
        ' cls(i).Compass = 10 '上下
        cls(i).Offset = -2 '左右
    Next
End If