Foxtable(狐表)用户栏目专家坐堂 → [求助]排期表计划与实际并排


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

主题:[求助]排期表计划与实际并排

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


加好友 发短信
等级:六尾狐 帖子:1347 积分:9817 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助]排期表计划与实际并排  发帖心情 Post By:2016/9/2 8:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:7.png
图片点击可在新窗口打开查看

如图片所示,怎么样可以实现我的效果

Dim dt As DataTable = DataTables("SMT排期")
Dim tb As Table = Tables("排期表_SMT排期表")
Dim Chart As WinForm.Chart
Chart= Forms("排期表").Controls("Chart1")
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = dt.Compute("min(资料_计划_开始)")'设置Y轴的起始日期
Chart.AxisY.MaxDate = dt.Compute("max(生产_计划_完成)")''''设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Dim sat() As Date
Dim en() As Date
Dim vsat As new List(of DateTime)
Dim vend As new List(of DateTime)
'--------------------------''''
Dim sat1() As Date
Dim en1() As Date
Dim vsat1 As new List(of DateTime)
Dim vend1 As new List(of DateTime)
'----------------------------'''
'Dim r As Row = tb.Current
For Each r As Row In tb.Rows
    For Each c As Col In tb.Cols
        If c.Name Like "*计划_开始" Then
            vsat.Add(r(c.name))
        End If
        If c.Name Like "*计划_完成" Then
            vend.Add(r(c.name))
        End If
    Next
    sat = vsat.ToArray()
    en = vend.ToArray()
    '-----------------------------------------
   
    For Each c As Col In tb.Cols
        If c.Name Like "*实际_开始" Then
            vsat1.Add(r(c.name))
        End If
        If c.Name Like "*实际_完成" Then
            vend1.Add(r(c.name))
        End If
    Next
    sat1 = vsat1.ToArray()
    en1 = vend1.ToArray()
    '----------------------------------------
    With Chart.SeriesList
        .AddGanttSeries(r("半成品名称"), sat, en)
        .AddGanttSeries(r("半成品名称"), sat1, en1)
        .AddGanttLabels("M月d日")
    End With
    vsat.Clear
    vend.Clear
    vsat1.Clear
    vend1.Clear
   
Next


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


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

上传例子测试

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


加好友 发短信
等级:六尾狐 帖子:1347 积分:9817 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2016/9/2 10:15:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单管理系统 - 副本.table


请帮忙

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


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

没有办法

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


加好友 发短信
等级:六尾狐 帖子:1347 积分:9817 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2016/9/2 11:25:00 [只看该作者]

那如何改变柱体里字体的颜色

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


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

貌似除了底色,其它颜色设置都不起作用

Chart.SeriesList(1).LineColor = Color.blue

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


加好友 发短信
等级:六尾狐 帖子:1347 积分:9817 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2016/9/2 13:31:00 [只看该作者]

我也试过很多,没办法。。。图片点击可在新窗口打开查看

 回到顶部