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

点击浏览该文件:管理项目1.table

在安排工作时，总是无法查询某一时间段内，工作时间的安排是否合理。

我想根据 计划工作开始日期，计划工作结束日期、员工姓名 与工作时间，形成一个类似如下面图片的统计表。

此主题相关图片如下：01.jpg

我不知道如何通过狐表实现，求助各位狐友。。。。

http://help.foxtable.com/topics/2032.htm

有点不懂，

如何把 窗口 表中的 开始，结束日期、姓名 提到 甘特图中？

 .AddGanttSeries("姓名", #开始日期#, #结束日期#)  \'根据筛选出来的内容，自动提取
 .AddGanttSeries("姓名", #开始日期#, #结束日期#)

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

点击浏览该文件:管理项目1.table

 谢谢狐爸，基本上已经完成

还有一个问题，当我第二次点击  生成甘特图时。是直接在来的甘特图中增加

我想这样做：当我第二次点击  生成甘行图时，自动清除之前的甘特图，重新生一个新的甘特图。

谢谢！

就要这种效果，OK了

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

点击浏览该文件:根据筛选时间范围生成甘特图.table

不知道怎么一回事

我在另一个表中设置，达不到例子中的效果，请看图

此主题相关图片如下：03.jpg

人员甘特图的代码是

Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt \'图表类型为甘特图
Chart.SeriesList.Clear()
Chart.Inverted = True \'对调X轴和Y轴位置
Chart.AxisY.DateType= True \'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" \'设置Y轴的标示格式
Chart.AxisY.MinDate = Tables("车间绩效记录").Compute("min(计划开始日期)") \'设置Y轴的起始日期
Chart.AxisY.MaxDate = Tables("车间绩效记录").Compute("min(计划完成日期)") \'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
With Chart.SeriesList
    For Each dr As Row In Tables("车间绩效记录").Rows
        .AddGanttSeries(dr("姓名"), dr("计划开始日期"), dr("计划完成日期"))
    Next
End With

数据表是SQL外部数据表

想知道大概原因？？？？？？？？

Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt \'图表类型为甘特图
Chart.SeriesList.Clear()
Chart.Inverted = True \'对调X轴和Y轴位置
Chart.AxisY.DateType= True \'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" \'设置Y轴的标示格式
Chart.AxisY.MinDate = Tables("车间绩效记录").Compute("min(计划开始日期)") \'设置Y轴的起始日期
Chart.AxisY.MaxDate = Tables("车间绩效记录").Compute("max(计划完成日期)") \'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
With Chart.SeriesList
    For Each dr As Row In Tables("车间绩效记录").Rows
        .AddGanttSeries(dr("姓名"), dr("计划开始日期"), dr("计划完成日期"))
    Next
End With

是我搞错了，现在可以了。

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

点击浏览该文件:根据筛选时间范围生成甘特图.table