想用甘特图来展示一个人当天的预约情况；
表为（“预约表”）里面有“病人姓名” “日期” “开始时间”“结束时间” 4个字段
预约时间定义为X轴 8:00 到 20:00 Y轴用预约的患者名字来生成
参照说明书：写如下代码来生成当天的预约情况甘特图（）
Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("甘特图测试").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "hh-mm" '设置Y轴的标示格式
Chart.AxisY.MinDate = #7:30# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #20:00# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Dim a As Date = Date.Today
Dim r As DataRow = DataTables("预约表").Find("日期 = " & a & " ")'找出对应年月的行
If r IsNot Nothing '如果找到对应年月的行
With Chart.SeriesList
.AddGanttSeries("病人姓名",“开始时间”, “结束时间”)
.AddGanttLabels("h:m")
End With
End If
不会引用表内字段来生成X/Y轴 不会同时添加筛选条件 向版主请教
加好友 
发短信
Post By：2017/11/26 12:27:00 [显示全部帖子]
