Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 关于排期图表进度条问题


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

主题：[求助] 关于排期图表进度条问题
帅哥哟，离线，有人找我吗？
2900819580
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1369 积分：10014 威望：0 精华：0 注册：2015/6/30 8:46:00 		[求助] 关于排期图表进度条问题  发帖心情 Post By：2016/8/10 21:51:00 [显示全部帖子]


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table

 

各位老师，我想将图表做成进度条样式可以不？
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1369 积分：10014 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2016/8/11 9:02:00 [显示全部帖子]

大红袍老师，两个我之前都试过了，实现不了我想要的这个功能。

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


加好友 发短信
等级：六尾狐 帖子：1369 积分：10014 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2016/8/11 10:42:00 [显示全部帖子]


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table

我是想一个产品一个计划做在一个平行线上，可以不，像上图所示，

简单实例附上
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1369 积分：10014 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2016/8/11 11:21:00 [显示全部帖子]


[此贴子已经被作者于2016/8/11 11:25:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1369 积分：10014 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2016/8/11 11:30:00 [显示全部帖子]

Dim dt As DataTable = DataTables("表A")
Dim tb As Table = Tables("表A")
Dim Chart As WinForm.Chart
Chart= Forms("窗口1").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 = #01/01/2010# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2010# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Dim sat() As String
Dim en() As String
Dim vsa As String
Dim ven As String
Dim vsat As new List(of String)
Dim vend As new List(of String)
For Each c As Col In tb.Cols
    If c.Name Like "'*开始'" Then
        vsat.Add(c.name)
        
    End If
    If c.Name Like "'*结束'" Then
        vend.Add(c.name)
    End If
Next
sat = vsat.ToArray()
en = vend.ToArray()
For i As Integer = 0 To sat.Length -1
    If vsa = Nothing Then
        vsa = tb.Current(sat(i))
    Else
        vsa = vsa & "," & tb.Current(sat(i))
    End If
Next
For i As Integer = 0 To en.Length -1
    If ven = Nothing Then
        ven = tb.Current(en(i))
    Else
        ven = vsa & "," & tb.Current(en(i))
    End If
Next
MessageBox.Show(ven & "|" & vsa)
With Chart.SeriesList
    .AddGanttSeries("任务五", New DateTime(){vsa}, New DateTime(){ven})
    '.AddGanttSeries("任务五", New DateTime() {tb.Current("物料开始"), tb.Current("生产开始")}, New DateTime() {tb.Current("物料结束"),tb.Current("生产结束")})
    .AddGanttLabels("M月d日")
End With


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