主题：从表中数据生成甘特图，可以不？

1、一个任务，可以对应多个时段，例子里有体现了；

2、时间段可以从数据表中提取，关键是你获取到表数据，设置进去即可；

3、多人任务栏，是什么意思？

你给的例子，哪些列作为任务，哪些列是时间段？怎么得到任务？

 汗......一开始看错了，以为要动态编译，后来发觉参数原来只是两个数组调用错了......

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轴的标示格式
Chart.AxisY.MinDate =  DataTables("表A").Compute("min(开始时间)") '设置Y轴的起始日期
Chart.AxisY.MaxDate = DataTables("表A").Compute("max(结束时间)") '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Dim Customers As List(Of String)    '提取药品中不重复值
Customers = DataTables("表A").GetValues("药品", "结束时间 is not null")
For Each Customer As String In Customers  '
    Dim drs As List(Of DataRow) = DataTables("表A").Select("药品 = '" & Customer & "' and 结束时间 is not null") '列名用符号|分割
   
    Dim dts1(drs.Count-1) As Datetime
    Dim dts2(drs.Count-1) As Datetime
   
    For i As Integer = 0 To drs.Count - 1
        Dim d1 As Date = drs(i)("开始时间")
        Dim d2 As Date = drs(i)("结束时间")
        Dim dt1 As Datetime = new Datetime(d1.Year, d1.Month, d1.Day, d1.Hour, d1.Minute, d1.Second)
        Dim dt2 As Datetime = new Datetime(d2.Year, d2.Month, d2.Day, d2.Hour, d2.Minute, d2.Second)
        dts1(i) = dt1
        dts2(i) = dt2
    Next
    With Chart.SeriesList       
        .AddGanttSeries(Customer,dts1,dts2)
        .AddGanttLabels("M月d日")      
    End With
Next