Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("总览").Controls("Chart1")
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.AxisY.Reversed = True '翻转Y轴
Chart.AxisX.Compass= CompassEnum.North 'X轴位置设为北方(上方)
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "hh:mm" '设置Y轴的标示格式
Chart.AxisY.MinDate = #8:00# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #20:00# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
For Each drs As DataRow In DataTables("预约表").Select(filter)
Dim xm As String = drs("所属医生")
Dim x As Date = drs("开始时间")
Dim y As Date = drs("结束时间")
With Chart.SeriesList
.AddGanttSeries(""& xm &"",""& x &"" ,""& y &" ")
.AddGanttLabels("h:m")
End With
Next
加好友 
发短信
Post By：2017/12/24 15:05:00 [显示全部帖子]
