专家坐堂-[求助] 关于排期图表进度条问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 关于排期图表进度条问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88878)

--  作者：2900819580
--  发布时间：2016/8/10 21:51:00
--  [求助] 关于排期图表进度条问题

此主题相关图片如下：无标题.png

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目3.table

各位老师，我想将图表做成进度条样式可以不？

--  作者：大红袍
--  发布时间：2016/8/10 21:53:00
--

参考

http://www.foxtable.com/webhelp/scr/2355.htm

http://www.foxtable.com/webhelp/scr/2032.htm

--  作者：2900819580
--  发布时间：2016/8/11 9:02:00
--
大红袍老师，两个我之前都试过了，实现不了我想要的这个功能。

--  作者：Hyphen
--  发布时间：2016/8/11 9:21:00
--
那想要什么功能？

一楼的截图和2楼帮助实现的效果没有看出有什么不同

--  作者：2900819580
--  发布时间：2016/8/11 10:42:00
--

此主题相关图片如下：无标题.png

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目4.table

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

简单实例附上

--  作者：大红袍
--  发布时间：2016/8/11 10:49: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轴的网格线

With Chart.SeriesList
    .AddGanttSeries("任务五", New DateTime() {tb.Current("物料开始"), tb.Current("生产开始")}, New DateTime() {tb.Current("物料结束"),tb.Current("生产结束")})
    .AddGanttLabels("M月d日")
End With

--  作者：2900819580
--  发布时间：2016/8/11 11:21:00
--

[此贴子已经被作者于2016/8/11 11:25:52编辑过]

--  作者：大红袍
--  发布时间：2016/8/11 11:29: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 Date
Dim en() As Date
Dim vsat As new List(of DateTime)
Dim vend As new List(of DateTime)
Dim r As Row = tb.Current
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()

With Chart.SeriesList
    .AddGanttSeries("任务五", sat, en)

    .AddGanttLabels("M月d日")
End With

--  作者：2900819580
--  发布时间：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

数据类型错误找不到方法

--  作者：大红袍
--  发布时间：2016/8/11 11:42:00
--
看8楼