用下列可以提取任务，但是开始时间和结束时间不对，不太明白错在那里
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 = #01/01/2010# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2010# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Dim Customers As List(Of String) '提取药品中不重复值
Customers = DataTables("表A").GetValues("药品")
For Each Customer As String In Customers '
'定义数组集合的时候,要在类型后加上括号,表示这是一个数组集合.
Dim Arys As List(Of String())
Arys = DataTables("表A").GetValues("开始时间|结束时间","药品 = '" & Customer & "'") '列名用符号|分割
'注意循环变量是字符型数组,所以类型是String(),而不是String
For Each Ary As String() In Arys
With Chart.SeriesList
.AddGanttSeries(Customer,Ary(0),Ary(1))
.AddGanttLabels("M月d日")
End With
Next
Next
加好友 
发短信
Post By：2014/7/22 0:05:00 [显示全部帖子]
