以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这个图表怎么修改?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26098)
--  作者：blackzhu
--  发布时间：2012/11/24 16:19:00
--  这个图表怎么修改?

Dim Chart As WinForm.Chart
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Chart.ChartType = ChartTypeEnum.Gantt
Chart.Inverted = True \'对调X轴和Y轴位置
Chart.AxisY.DateType= True \'Y轴为日期型
Chart.AxisY.AnnoFormatString = "yyyy-MM-dd" \'设置Y轴的标示格式
For Each dr As DataRow In DataTables("订单明细表").DataRows
    Chart.AxisY.MinDate = dr("下单日期")
    Chart.AxisY.MaxDate = dr("交货日期")
    Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
    With Chart.SeriesList
        .AddGanttSeries(dr("加工工序"),dr("开始时间"),Date.Today)
        .AddGanttLabels("yyyy年M月d日")
    End With
Next

 

  竖向为加工工序  横向为下单日期和结束日期   图表为开始时间 和目前的时间  这个不出来图表  怎么修改?
--  作者：狐狸爸爸
--  发布时间：2012/11/24 16:24:00
--  

把这个表传上来看看。

 
--  作者：lin_hailun
--  发布时间：2012/11/24 16:27:00
--  
估计要改成这样

Dim Chart As WinForm.Chart
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Chart.ChartType = ChartTypeEnum.Gantt
Chart.Inverted = True \'对调X轴和Y轴位置
Chart.AxisY.DateType= True \'Y轴为日期型
Chart.AxisY.AnnoFormatString = "yyyy-MM-dd" \'设置Y轴的标示格式
For Each dr As DataRow In DataTables("订单明细表").DataRows
    Chart.AxisY.MinDate = CDate(dr("下单日期"))
    Chart.AxisY.MaxDate = CDate(dr("交货日期"))
    Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
    With Chart.SeriesList
        .AddGanttSeries(dr("加工工序"), CDate(dr("开始时间")), Date.Today)
        .AddGanttLabels("yyyy年M月d日")
    End With
Next

--------------------------------------------------

不是这个的问题。字符串也行，我测试可以显示的，我替换了一下。
[此贴子已经被作者于2012-11-24 16:30:24编辑过]
--  作者：blackzhu
--  发布时间：2012/11/24 16:40:00
--  

     老大 我如果抛开这个(因为是局域网的SQL不好传),我有一个加工工序列  有下单日期 和交货期日列

 

 

     如果我想在横向显示加工工序   为 下单日期和交货日期   图表显示的是 加工工序目前的进度  这么写这个图表?
--  作者：狐狸爸爸
--  发布时间：2012/11/24 16:47:00
--  

呵呵，新建一个项目，加载这个表，然后重定向为内部表，输入少量数据后删除数据源，发上来即可。
--  作者：blackzhu
--  发布时间：2012/11/24 16:56:00
--  

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:甘特图.foxdb
--  作者：狐狸爸爸
--  发布时间：2012/11/24 16:57:00
--  

 不过下面的代码的肯定是有问题的：

 

For Each dr As DataRow In DataTables("订单明细表").DataRows
   Chart.AxisY.MinDate = dr("下单日期")
    Chart.AxisY.MaxDate = dr("交货日期")

Next

 

每个坐标轴的最大值和最小值，都只有一个，你这样循环设置，是没有意义的，最后Y轴的最大值和最小值，就是最后一行的下单日期和交货日期。
--  作者：blackzhu
--  发布时间：2012/11/24 17:22:00
--  
老大 有无帮我弄好!  我的要求改了!
[此贴子已经被作者于2012-11-24 17:22:55编辑过]
--  作者：blackzhu
--  发布时间：2012/11/24 17:42:00
--  

一周内的代码这样写代码?

 

日期 >= \'" & date.today.Adddays(-7) & and 日期=\'" & date.today & "\'"
--  作者：小猪鑫鑫
--  发布时间：2012/11/24 21:46:00
--  
日期 >=\'" & Date.today.adddays(-7) & "\' and 日期 <=\'" & Date.today & "\'"