Foxtable(狐表) → 用户栏目 → 专家坐堂 → 项目进度甘特图


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

主题：项目进度甘特图
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/25 11:04:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:项目进度甘特图.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/26 14:39:00 [显示全部帖子]

Dim cr = e.Table.current
If cr IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim Chart As WinForm.Chart
    Chart= Forms("窗口1").Controls("Chart1")
    Chart.ChartType = ChartTypeEnum.Gantt
    Chart.Inverted = True '对调X轴和Y轴位置
    Chart.AxisY.DateType= True 'Y轴为日期型
    Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
    Dim t1 As Table = Tables("项目")
    Dim t2 As Table = Tables("项目进度")
    Dim min = t2.Compute("min(开始时间)", "项目 = '" & t1.current("项目") & "'")
    Dim max = t2.Compute("max(结束时间)", "项目 = '" & t1.current("项目") & "'")
    Chart.AxisY.MinDate = min
    Chart.AxisY.MaxDate = max '设置Y轴的终止日期
    Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
    chart.AxisX.ClearValueLabel
    Chart.SeriesList.Clear
    Dim i As Integer = 0
    With Chart.SeriesList
        For Each dr As DataRow In t2.DataTable.Select("项目 = '" & t1.current("项目") & "'")
            .AddGanttSeries(dr("进度节点"), dr("开始时间"), dr("结束时间"))
            .AddGanttLabels("M月d日")
            Chart.SeriesList(i).LineColor= Color.Red
            i += 1
        Next
       
    End With
End If

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/26 16:04:00 [显示全部帖子]

Dim cr = e.Table.current
If cr IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim Chart As WinForm.Chart
    Chart= Forms("窗口1").Controls("Chart1")
    Chart.ChartType = ChartTypeEnum.Gantt
    Chart.Inverted = True '对调X轴和Y轴位置
    Chart.AxisY.DateType= True 'Y轴为日期型
    Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
    Dim t1 As Table = Tables("项目")
    Dim t2 As Table = Tables("项目进度")
    Dim min = t2.Compute("min(开始时间)", "项目 = '" & t1.current("项目") & "'")
    Dim max = t2.Compute("max(结束时间)", "项目 = '" & t1.current("项目") & "'")
    Chart.AxisY.MinDate = min
    Chart.AxisY.MaxDate = max '设置Y轴的终止日期
    Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
    chart.AxisX.ClearValueLabel
    Chart.SeriesList.Clear
    Dim i As Integer = 0
   
    Dim bchart = chart.BaseControl
    With Chart.SeriesList
        For Each dr As DataRow In t2.DataTable.Select("项目 = '" & t1.current("项目") & "'")
            .AddGanttSeries(dr("进度节点"), dr("开始时间"), dr("结束时间"))
            .AddGanttLabels("M月d日")
            Chart.SeriesList(i).LineColor= Color.Red
            i += 1
        Next
    End With
    Dim cls = bchart.ChartLabels.LabelsCollection
    For i = 0 To cls.count-1
        cls(i).style.forecolor = Color.black
    Next
End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/27 9:37:00 [显示全部帖子]

Dim cr = e.Table.current
If cr IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim Chart As WinForm.Chart
    Chart= Forms("窗口1").Controls("Chart1")
    Chart.ChartType = ChartTypeEnum.Gantt
    Chart.Inverted = True '对调X轴和Y轴位置
    Chart.AxisY.DateType= True 'Y轴为日期型
    Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
    Dim t1 As Table = Tables("项目")
    Dim t2 As Table = Tables("项目进度")
    Dim min = t2.Compute("min(开始时间)", "项目 = '" & t1.current("项目") & "'")
    Dim max = t2.Compute("max(结束时间)", "项目 = '" & t1.current("项目") & "'")
    Chart.AxisY.MinDate = min
    Chart.AxisY.MaxDate = max '设置Y轴的终止日期
    Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
    chart.AxisX.ClearValueLabel
    Chart.SeriesList.Clear
    Dim i As Integer = 0
   
    Dim bchart = chart.BaseControl
    With Chart.SeriesList
        For Each dr As DataRow In t2.DataTable.Select("项目 = '" & t1.current("项目") & "'")
            .AddGanttSeries(dr("进度节点"), dr("开始时间"), dr("结束时间"))
            .AddGanttLabels("M月d日")
            Chart.SeriesList(i).LineColor= Color.Red
            'Chart.SeriesList(i).DataLabelCompass=LabelCompassEnum.East
            i += 1
        Next
    End With
    Dim cls = bchart.ChartLabels.LabelsCollection
    For i = 0 To cls.count-1
        cls(i).style.forecolor = Color.black
        ' cls(i).Compass = 10 '上下
        cls(i).Offset = -2 '左右
    Next
End If

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 6 次数据查询