主题：设备别甘特图

一定要用表格吗？表格实现比较麻烦

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

如果要用表格，参考，代码基本一样。

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

 根据表格数据生成甘特图不就好了？

 日期值，你可以查询表得到，最后生成不就好了？现在你问题卡在哪里？

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

mark 甘特图标签

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:甘特图.table

改成

lbl.Text = format(vsat(i),"MM月dd日") & "-" & format(vend(i),"MM月dd日") & vbcrlf & vstr(i) '设置显示内容

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim d2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim filter As String = "1=1"
If txt.text > "" Then
    filter &= " and 任务 = '" & txt.text & "'"
End If
If d1.text > "" Then
    filter &= " and 开始时间 >= #" & d1.text & "#"
End If
If d2.text > "" Then
    filter &= " and 结束时间 >= #" & d2.text & "#"
End If

Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt
chart.AxisX.ClearValueLabel
chart.AxisY.ClearValueLabel
chart.SeriesList.Clear
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Dim dt As DataTable = DataTables("表A")
Dim min As Date = dt.Compute("min(开始时间)", filter & " and 开始时间 Is not null")
Dim max As Date = dt.Compute("max(结束时间)", filter & " and 结束时间 Is not null")
Chart.AxisY.MinDate = min '设置Y轴的起始日期
Chart.AxisY.MaxDate = max '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线

For Each rw As String In dt.GetValues("任务", filter & " and 任务 Is not null")
    Dim vsat As new List(of DateTime)
    Dim vend As new List(of DateTime)
    For Each dr As DataRow In dt.Select(filter & " and 任务 = '" & rw & "'")
        vsat.add(dr("开始时间"))
        vend.add(dr("结束时间"))
    Next
    With Chart.SeriesList
        .AddGanttSeries(rw, vsat.ToArray, vend.ToArray)
        .AddGanttLabels("M月d日")
    End With
Next

测试了一下，这个没办法......