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

在窗口中建立了甘特图，想要分段显示，在按钮的click中如何选定需要的列

以下是引用chypr020在2018/1/12 14:24:00的发言：
在窗口中建立了甘特图，想要分段显示，在按钮的click中如何选定需要的列

具体一点你的问题，尽量截图或者上传实例说明。

Dim Chart As WinForm.Chart

Chart= Forms("计划进度").Controls("Chart2")

Chart.ChartType = ChartTypeEnum.Gantt

Chart.SeriesList.Clear

Dim t As Table = Tables("生产统计")

Chart.Inverted = True

Chart.AxisY.DateType= True

Chart.AxisY.AnnoFormatString = "MM-dd"

Chart.AxisY.MinDate = #01/01/2018#

Chart.AxisY.MaxDate = #01/11/2018#

Chart.AxisX.GridMajorVisible = False

For Each dr As Row In t.Rows

With Chart.SeriesList

.AddGanttSeries(dr("铸锭批号"), "#" & dr("清炉时间") & "#" , "#" & dr("出锭时间") & "#")

.AddGanttLabels("M月d日")

End With

这是上旬的完成进度

Dim Chart As WinForm.Chart

Chart= Forms("计划进度").Controls("Chart2")

Chart.ChartType = ChartTypeEnum.Gantt

Chart.SeriesList.Clear

Dim t As Table = Tables("生产统计")

Chart.Inverted = True

Chart.AxisY.DateType= True

Chart.AxisY.AnnoFormatString = "MM-dd"

Chart.AxisY.MinDate = #01/11/2018#

Chart.AxisY.MaxDate = #01/21/2018#

Chart.AxisX.GridMajorVisible = False

For Each dr As Row In t.Rows

With Chart.SeriesList

.AddGanttSeries(dr("铸锭批号"), "#" & dr("清炉时间") & "#" , "#" & dr("出锭时间") & "#")

.AddGanttLabels("M月d日")

End With

中旬的进度

就是想在中旬的甘特图里不在显示上旬已完成的任务

此主题相关图片如下：qq图片20180112153130.png

就是画圈的部分

把坐标轴的内容清空一下即可，如

chart.AxisY.ClearValueLabel

甜老师，我加上了，但是好像没有起作用，我是个新手菜鸟，您能不能帮我在中旬进度里编写一下，万分感谢

Dim Chart As WinForm.Chart
Chart= Forms("计划进度").Controls("Chart2")
Chart.ChartType = ChartTypeEnum.Gantt
Chart.SeriesList.Clear
Dim t As Table = Tables("生产统计")
Chart.Inverted = True
Dim d1 As Date = "2018-01-11"
Dim d2 As Date = "2018-01-20"
Chart.AxisX.GridMajorVisible = False
For Each dr As DataRow In t.DataTable.Select("日期 >= #" & d1 & "# and 日期 <= #" & d2 & "#")
    With Chart.SeriesList
        .AddGanttSeries(dr("铸锭批号"), "#" & dr("清炉时间") & "#" , "#" & dr("出锭时间") & "#")
        .AddGanttLabels("M月d日")
     End With
Next

[此贴子已经被作者于2018/1/12 15:58:01编辑过]

太帅了，谢谢田老师

主题：[求助]