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

关于 http://www.foxtable.com/webhelp/topics/0971.htm 启用双图标的问题：

此主题相关图片如下：供应商数据.jpg

上面是我们的数据。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:供应商准时交货率.rar

上面是生产的图标。

'生成双图表

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Bar '图表1类型该为Bar(条形)

Chart.ChartType2 = ChartTypeEnum.XYPlot '图表2类型该为线形

Chart.DataSource = "提取绘图数据2" '设置绑定表

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

Series = Chart.SeriesList.Add() '给图表1增加一个图系

Series.Text = "应交货"

Series.X.DataField = "供应商简称" 'X轴绑定到产品列

Series.Y.DataField = "应交货" 'Y轴绑定到数量列

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

Series = Chart.SeriesList2.Add() '给图表2增加一个图系

Series.Text = "准时交"

Series.X.DataField = "供应商简称" 'X轴绑定到产品列

Series.Y.DataField = "准时交" 'Y轴绑定到数量列

Chart.LegendVisible = True '显示图列

Chart.LegendCompass = CompassEnum.South '图列显示在南方(底端)

Chart.AxisY.Text = "应交货"

Chart.AxisY2.Text = "准时交"

Chart.SaveImage(ProjectPath & "Images\供应商准时交货率.wmf")

上面是我的代码，从我们的供应商数据生成的双图表却是错误的。请问是哪里的问题呢？谢谢。

应交货、准时交这2个列改为整数列

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Bar '图表1类型该为Bar(条形)

Chart.ChartType2 = ChartTypeEnum.XYPlot '图表2类型该为线形

Chart.DataSource = "提取绘图数据2" '设置绑定表

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

Series = Chart.SeriesList.Add() '给图表1增加一个图系

Series.Text = "应交货"

Series.X.DataField = "供应商简称" 'X轴绑定到产品列

Series.Y.DataField = "应交货" 'Y轴绑定到数量列

Series = Chart.SeriesList.Add() '给图表1增加一个图系

Series.Text = "准时交"

Series.X.DataField = "供应商简称" 'X轴绑定到产品列

Series.Y.DataField = "准时交" 'Y轴绑定到数量列

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

Series = Chart.SeriesList2.Add() '给图表2增加一个图系

Series.Text = "准时率"

Series.X.DataField = "供应商简称" 'X轴绑定到产品列

Series.Y.DataField = "准时率" 'Y轴绑定到数量列

Chart.LegendVisible = True '显示图列

Chart.LegendCompass = CompassEnum.South '图列显示在南方(底端)

Chart.AxisY.Text = "应交货"

Chart.AxisY.Text = "准时交"

Chart.AxisY2.Text = "准时率"

我用上面的代码绘出了下面的图表：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:供应商准时交货率.rar

我希望右坐标的刻度能转化成百分比的形式，比如1就是100%，0.6就是60%。请问代码里面要怎样处理？谢谢。

试试

Chart.AxisY2.AnnoFormatString = "0.00%"

谢谢，解决好了。还有下面一个问题：

Chart.SaveImage(ProjectPath & "Images\供应商准时交货率.wmf")

在用上面代码将图片保存好后，再利用下面的代码和excel模板生成一个excel文件（见附页文件）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:供应商准时交货率1.rar

Dim Book As New XLS.Book(ProjectPath & "Attachments\供应商准时交货率.xls")

Dim fl As String = ProjectPath & "Reports\供应商准时交货率.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

执行完上述文件也会形成一个叫做 "供应商准时交货率.xls" 的文件，文件里面应该保含 “供应商准时交货率.wmf” 这个图。但是这个excel无法代开，其提示是：无法在受保护的视图中打开该文件。

请问是什么原因呢？谢谢。

有其它应用打开了这个execl文件，先关闭所有已经打开的execl

我把所有excel都关闭了，然后执行代码，还是会出现同样的问题，见附页：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图片1227.zip

项目文件是不是放到共享目录里使用的？

1、8楼的方法，我试过了，也是一样的问题（我先打开一个空白的excel，根据8楼的方法重新设置选项，然后再去打开插入了的图片的 "供应商准时交货率.xls" ，存在一样的问题）

2、现在只是开发阶段，我还没有发布和复制到共享目录去的。只是在我的本机操作。

主题：启用双图标