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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有1947人关注过本帖树形打印复制链接主题：[求助]

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/12 15:23:00 [显示全部帖子]

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

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/12 15:41:00 [显示全部帖子]

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

chart.AxisY.ClearValueLabel

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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编辑过]

下一主题 >> << 上一主题

主题：[求助]