Foxtable(狐表)用户栏目专家坐堂 → 启用双图标


  共有1303人关注过本帖树形打印复制链接

主题:启用双图标

帅哥哟,离线,有人找我吗?
edisontsui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
启用双图标  发帖心情 Post By:2023/12/26 10:10:00 [显示全部帖子]

关于 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") 
上面是我的代码,从我们的供应商数据生成的双图表却是错误的。请问是哪里的问题呢?谢谢。






 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/27 9:21:00 [显示全部帖子]

        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%。请问代码里面要怎样处理?谢谢。



 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/27 13:07: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无法代开,其提示是:无法在受保护的视图中打开该文件。
请问是什么原因呢?谢谢。


 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/27 14:15:00 [显示全部帖子]

我把所有excel都关闭了,然后执行代码,还是会出现同样的问题,见附页:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片1227.zip



 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/27 16:28:00 [显示全部帖子]

1、8楼的方法,我试过了,也是一样的问题(我先打开一个空白的excel,根据8楼的方法重新设置选项,然后再去打开插入了的图片的 "供应商准时交货率.xls" ,存在一样的问题
2、现在只是开发阶段,我还没有发布和复制到共享目录去的。只是在我的本机操作。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/27 16:29:00 [显示全部帖子]

这个就是插入了图片的excel:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:供应商准时交货率.zip



 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/28 8:44:00 [显示全部帖子]

我重新做了一个项目,但是好像图表插不进excel里面去。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:箱号问题20231228.zip



 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/28 14:19:00 [显示全部帖子]

果然如此。谢谢。
请问要改变坐标轴的字体,用什么代码?谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/29 12:37:00 [显示全部帖子]

谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1499 积分:9716 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2023/12/30 9:22:00 [显示全部帖子]

        Chart.LegendVisible = True '显示图列
        Chart.LegendCompass = CompassEnum.South '图列显示在南方(底端)
        Chart.LegendFont = New Font("黑体", 10, FontStyle.Bold) '设置图列字体
        Chart.AxisY.Text = "应交货"
        Chart.AxisY.Text = "准时交"
        Chart.AxisY2.Text = "准时率"
'        Chart.AxisY2.AnnoFormatString = "0.00%" '有点蓝2023/12/27提供测试用
        Chart.AxisY2.AnnoFormatString = "0%" '有点蓝2023/12/27提供测试用
        Chart.AxisX.Font = New Font("黑体",10, FontStyle.Bold)
        Chart.AxisY.Font = New Font("黑体", 10, FontStyle.Bold)
        Chart.AxisY2.Font = New Font("黑体", 10, FontStyle.Bold)
        chart.AxisY2.GridMajorVisible = false '不要次坐标的网格线
请看下面的 excel 表,里面有图表了。虽然我用了上面的代码来调整字体,但是,图表里面的X轴、Y轴坐标,比如供应商名称,准时率、准时交及其刻度等,这些坐标相关位置的颜色还是比较淡,尤其是打印出来更淡。请问还能怎么调整成黑色吗?谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:供应商准时交货率.rar




 回到顶部
总数 17 1 2 下一页