Forms("设计计划甘特图").Show()
Dim Chart As WinForm.Chart
Chart= Forms("设计计划甘特图").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.SeriesList.Clear
Dim t As Table = Tables("设计分配计划表")
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式'
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线\
With e.Form.Controls("设计人员")
If .Value IsNot Nothing Then
Dim drs As List(Of DataRow)
drs = DataTables("设计分配计划表").Select("[设计3D_担当] = '" & .Value & "' And [设计2D_担当] = '" & .Value & "'")
For Each dr As DataRow In drs
With Chart.SeriesList
.AddGanttSeries(dr("治具规格"),New DateTime() {dr("设计3D_计划开始日期"),dr("设计3D_计划结束日期")},New DateTime() {dr("设计2D_计划开始日期"),dr("设计2D_计划结束日期")})
.AddGanttLabels("M月d日")
End With
Next
End If
End With
这样改了以后 所有的时间都会显示,但是重叠.这个不知道怎么改了?
加好友 
发短信
Post By：2016/8/2 12:01:00 [显示全部帖子]
