修改代码，看方法二

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

和X轴一样的

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

（麻烦帮我修改指导一下，谢谢）（窗口中工程名称顺序不能根据数据表中工程名称顺序变化而改变）

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.DataSource = "项目管理公司项目成本报表"\'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系

Series = Chart.SeriesList.Add() \'增加第二个图系
Series.Text = "目标成本_计划总成本_材料费占比"
Series.X.DataField = "工程名称简称"\'X轴绑定到产品列
Series.Y.DataField = "目标成本_计划总成本_材料费占比"\'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0.0%}"
Series = Chart.SeriesList.Add() \'增加第二个图系
Series.Text = "开工至今累计_实际成本_材料费占比"
Series.X.DataField = "工程名称简称"\'X轴绑定到产品列
Series.Y.DataField = "开工至今累计_实际成本_材料费占比"\'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0.0%}"

Chart.AxisX.AnnoRotation = 30\'X轴标示逆时针旋转45度
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Series.DataLabelText = "{#YVAL:0.0%}"
Dim a As C1Chart.C1Chart = e.Form.Controls("Chart1").BaseControl
Dim b As C1Chart.ChartGroup = a.ChartGroups.Group0
\'b.Use3D = True
a.ChartArea.Inverted = False  
a.ChartArea.PlotArea.View3D.Depth = 40  
a.ChartArea.PlotArea.View3D.Elevation = 20 
a.ChartArea.PlotArea.View3D.Rotation = 8 
a.ChartArea.PlotArea.View3D.Shading = 2
b.Bar.Appearance = 0
b.Bar.MultiRow = True
b.Use3D = True
b.Stacked = False

（麻烦帮我修改指导一下，谢谢）（窗口中工程名称顺序不能根据数据表中工程名称顺序变化而改变）

不会做，请上传具体项目。

（麻烦帮我修改指导一下，谢谢）（窗口中工程名称顺序不能根据数据表中工程名称顺序变化而改变）

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

点击浏览该文件:项目管理公司项目成本信息库 -上传请教.table

密码：888

（麻烦帮我修改指导一下，谢谢）（窗口中工程名称顺序不能根据数据表中工程名称顺序变化而改变）