主题：[求助] 关于排期图表进度条问题

参考

http://www.foxtable.com/webhelp/scr/2355.htm

http://www.foxtable.com/webhelp/scr/2032.htm

Dim dt As DataTable = DataTables("表A")
Dim tb As Table = Tables("表A")
Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.SeriesList.Clear() '清除图表原来的图系

Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2010# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2010# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线

With Chart.SeriesList
    .AddGanttSeries("任务五", New DateTime() {tb.Current("物料开始"), tb.Current("生产开始")}, New DateTime() {tb.Current("物料结束"),tb.Current("生产结束")})
    .AddGanttLabels("M月d日")
End With

Dim dt As DataTable = DataTables("表A")
Dim tb As Table = Tables("表A")
Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2010# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2010# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Dim sat() As Date
Dim en() As Date
Dim vsat As new List(of DateTime)
Dim vend As new List(of DateTime)
Dim r As Row = tb.Current
For Each c As Col In tb.Cols
    If c.Name Like "*开始" Then
        vsat.Add(r(c.name))
    End If
    If c.Name Like "*结束" Then
        vend.Add(r(c.name))
    End If
Next

sat = vsat.ToArray()
en = vend.ToArray()

With Chart.SeriesList
    .AddGanttSeries("任务五", sat, en)
   
    .AddGanttLabels("M月d日")
End With