主题：求助 这种类型的统计功能实现

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

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

 

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

 

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

 

 

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

 

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

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

 

 

有点不懂，

 

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

 

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

 

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

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

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

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

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

 

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

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

 

 

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

Chart.SeriesList.Clear() '清除图表原来的图系

谢谢！

就要这种效果，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