这个图表怎么修改? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个图表怎么修改?

共有9122人关注过本帖树形打印复制链接主题：这个图表怎么修改?

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

这个图表怎么修改? 发帖心情

Post By：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

竖向为加工工序横向为下单日期和结束日期图表为开始时间和目前的时间这个不出来图表怎么修改?

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/11/24 16:24:00 [只看该作者]

把这个表传上来看看。

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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编辑过]