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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113280)

--  作者：chypr020
--  发布时间：2018/1/12 14:24:00
--  [求助]
在窗口中建立了甘特图，想要分段显示，在按钮的click中如何选定需要的列

--  作者：有点甜
--  发布时间：2018/1/12 15:23:00
--

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

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

--  作者：chypr020
--  发布时间：2018/1/12 15:37:00
--

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
Next
这是上旬的完成进度

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
Next
中旬的进度
就是想在中旬的甘特图里不在显示上旬已完成的任务

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

就是画圈的部分

--  作者：有点甜
--  发布时间：2018/1/12 15:41:00
--

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

chart.AxisY.ClearValueLabel

--  作者：chypr020
--  发布时间：2018/1/12 15:52:00
--
甜老师，我加上了，但是好像没有起作用，我是个新手菜鸟，您能不能帮我在中旬进度里编写一下，万分感谢

--  作者：有点甜
--  发布时间：2018/1/12 15:57:00
--
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编辑过]

--  作者：chypr020
--  发布时间：2018/1/12 16:11:00
--
太帅了，谢谢田老师