Foxtable(狐表)用户栏目专家坐堂 → 图表显示项目执行天数


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

主题:图表显示项目执行天数

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


加好友 发短信
等级:幼狐 帖子:164 积分:2014 威望:0 精华:0 注册:2008/9/7 0:06:00
图表显示项目执行天数  发帖心情 Post By:2022/2/20 1:43:00 [只看该作者]

怎样将执行天数添加到状态条上呀?


Dim Chart As WinForm.Chart
Chart= Forms("项目进度表").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.ClearValueLabel
Chart.SeriesList.Clear
Chart.AxisY.AnnoFormatString = "yyyy-MM" '设置Y轴的标示格式
Chart.AxisY.MinDate = DataTables("项目进度表").Compute("Min(开始日期)") ',Filter)'设置Y轴的起始日期
Chart.AxisY.MaxDate = DataTables("项目进度表").Compute("Max(完成日期)") ',Filter)'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With Chart.SeriesList
    For Each dw As String In DataTables("项目进度表").GetValues("项目阶段")
        Dim ls1 As new List(Of Date)
        Dim ls2 As new List(Of Date)
        For Each dr As DataRow In DataTables("项目进度表").Select("项目阶段 = '" & dw & "'")
            ls1.Add(dr("开始日期"))
            ls2.add(dr("完成日期"))


        Next
        .AddGanttSeries(dw,ls1.ToArray,ls2.ToArray)      
    Next
End With

Chart.LegendVisible = True '显示图列

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

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


加好友 发短信
等级:幼狐 帖子:164 积分:2014 威望:0 精华:0 注册:2008/9/7 0:06:00
  发帖心情 Post By:2022/2/20 18:34:00 [只看该作者]

 .AddGanttLabels("M月d日")

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/20 21:47:00 [只看该作者]

目前加不了

 回到顶部