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


  共有1521人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
chypr020
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:404 威望:0 精华:0 注册:2017/11/27 16:07:00
[求助]  发帖心情 Post By: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:23:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
chypr020
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:404 威望:0 精华:0 注册:2017/11/27 16:07:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看

就是画圈的部分

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/12 15:41:00 [只看该作者]

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

 

chart.AxisY.ClearValueLabel


 回到顶部
帅哥哟,离线,有人找我吗?
chypr020
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:404 威望:0 精华:0 注册:2017/11/27 16:07:00
  发帖心情 Post By:2018/1/12 15:52:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
chypr020
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:404 威望:0 精华:0 注册:2017/11/27 16:07:00
  发帖心情 Post By:2018/1/12 16:11:00 [只看该作者]

太帅了,谢谢田老师

 回到顶部