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

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

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

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

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

那想要什么功能？

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

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

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

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

简单实例附上

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

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

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

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

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

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

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

数据类型错误找不到方法

主题：[求助] 关于排期图表进度条问题