[求助]甘特图的特别运用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想用甘特图来展示一个人当天的预约情况；

表为（“预约表”）里面有“病人姓名” “日期” “开始时间”“结束时间” 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轴不会同时添加筛选条件向版主请教

版主已经解决了问题，我还想问问；这个生成的甘特图能和表进行数据互动么？

以下是引用堕落的后天在2017/11/26 14:57:00的发言：
版主已经解决了问题，我还想问问；这个生成的甘特图能和表进行数据互动么？

如何互动，指什么？只能根据表格生成甘特图，你无法操作甘特图修改表信息的。

额也就是说只能看看，不能根据表改动数据了.

我看图表一章有个“数据标示” Series.TooltipText 这个属性适用于甘特图么？（比如我鼠标移到一个区块上，就能显示该区块的其他字段信息）

以下是引用堕落的后天在2017/11/26 18:11:00的发言：
额也就是说只能看看，不能根据表改动数据了.

我看图表一章有个“数据标示” Series.TooltipText 这个属性适用于甘特图么？（比如我鼠标移到一个区块上，就能显示该区块的其他字段信息）

表改动数据以后，重新生成甘特图，不就好了？

如果要有提示，参考代码

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 = New DateTime(2004, 1, 1)
Chart.AxisY.MaxDate = New DateTime(2004, 7, 30)
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线

Dim bchart = chart.BaseControl

Dim cg = bchart.ChartGroups.Group0
Dim cdsc = cg.ChartData.SeriesList
cdsc.Clear()

Dim clc = bchart.ChartLabels.LabelsCollection

Dim cds = cdsc.AddNewSeries()
cds.Label = "任务一"
cds.Y.CopyDataIn(New DateTime() {New DateTime(2004, 1, 1),New DateTime(2004, 5, 1)})
cds.Y1.CopyDataIn(New DateTime() {New DateTime(2004, 3, 9),New DateTime(2004, 6, 1)})
Dim p As Integer
clc.clear
For p = 0 To cds.Length - 1
    Dim lab As C1.Win.C1Chart.Label = clc.AddNewLabel()
    Dim start As DateTime = CType(cds.Y(p), DateTime)
    Dim [End] As DateTime = CType(cds.Y1(p), DateTime)
    lab.Text = start.ToString("ddMMM") + "-" + [End].ToString("ddMMM")
    lab.AttachMethod = C1.Win.C1Chart.AttachMethodEnum.DataIndex
    lab.AttachMethodData.GroupIndex = 0
    lab.AttachMethodData.SeriesIndex = 0
    lab.AttachMethodData.PointIndex = p
    lab.Compass = LabelCompassEnum.West
    lab.Offset = 0
    lab.style.forecolor = Color.red
    lab.Visible = True
Next
cds.tooltiptext = "123"

cds = cdsc.AddNewSeries()
cds.Label = "任务二"
cds.Y.CopyDataIn(New DateTime() {New DateTime(2004, 2, 1)})
cds.Y1.CopyDataIn(New DateTime() {New DateTime(2004, 3, 9)})
For p = 0 To cds.Length - 1
    Dim lab As C1.Win.C1Chart.Label = clc.AddNewLabel()
    Dim start As DateTime = CType(cds.Y(p), DateTime)
    Dim [End] As DateTime = CType(cds.Y1(p), DateTime)
    lab.Text = start.ToString("ddMMM") + "-" + [End].ToString("ddMMM")
    lab.AttachMethod = C1.Win.C1Chart.AttachMethodEnum.DataIndex
    lab.AttachMethodData.GroupIndex = 0
    lab.AttachMethodData.SeriesIndex = 1
    lab.AttachMethodData.PointIndex = p
    lab.Compass = LabelCompassEnum.West
    lab.Offset = 0
    lab.style.forecolor = Color.red
    lab.Visible = True
Next
cds.tooltiptext = "abc"

主题：[求助]甘特图的特别运用