Foxtable(狐表) → 用户栏目 → 专家坐堂 → 手机图表不显示


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

主题：手机图表不显示
帅哥哟，离线，有人找我吗？
jseteary
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：379 积分：3263 威望：0 精华：0 注册：2017/10/25 22:07:00 		手机图表不显示  发帖心情 Post By：2018/5/16 11:55:00 [只看该作者]

Dim wb As New WeUI
Dim Chart As New ChartBuilder '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart.PrintWidth = 140 '宽度设为140毫米
Chart.PrintHeight = 100
Chart.VisualEffect = True
Chart.DataSource = "调度日报" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "选矿工序化验原始记录_时间" 'X轴绑定到产品列
Series.Y.DataField = "选矿工序化验原始记录_镜铁矿_精矿_品位" 'Y轴绑定到数量列

wb.AddPageTitle("","ph1","镜精矿品位")
wb.InsertHTML("<img width='100%' src='" & wb.ImageToBase64(Chart.Image) &  "'/>")
e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
jseteary
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：379 积分：3263 威望：0 精华：0 注册：2017/10/25 22:07:00 		  发帖心情 Post By：2018/5/16 11:55:00 [只看该作者]

显示只是x，和y轴
没有数据和曲线
 回到顶部
帅哥哟，离线，有人找我吗？
jseteary
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：379 积分：3263 威望：0 精华：0 注册：2017/10/25 22:07:00 		  发帖心情 Post By：2018/5/16 11:56:00 [只看该作者]

请大师指点

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/16 12:10:00 [只看该作者]

打开命令窗口，执行下面代码，看生成的图表是否正确

 

Dim Chart As New ChartBuilder '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart.PrintWidth = 140 '宽度设为140毫米
Chart.PrintHeight = 100
Chart.VisualEffect = True
Chart.DataSource = "调度日报" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Chart.AxisX.DateType = True 'X轴是日期型
Series.X.DataField = "选矿工序化验原始记录_时间" 'X轴绑定到产品列
Series.Y.DataField = "选矿工序化验原始记录_镜铁矿_精矿_品位" 'Y轴绑定到数量列
chart.Image.save("d:\test.wmf")
Dim proc As new Process
proc.file = "d:\test.wmf"
proc.start
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/16 12:11:00 [只看该作者]

如果图片不正确，说明你表名、列名写错。

 

如果自己不会调试，上传表个测试。
 回到顶部
帅哥哟，离线，有人找我吗？
jseteary
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：379 积分：3263 威望：0 精华：0 注册：2017/10/25 22:07:00 		  发帖心情 Post By：2018/5/16 12:23:00 [只看该作者]

我是想让手机网页打开显示
 回到顶部
帅哥哟，离线，有人找我吗？
jseteary
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：379 积分：3263 威望：0 精华：0 注册：2017/10/25 22:07:00 		  发帖心情 Post By：2018/5/16 12:25:00 [只看该作者]

执行后
显示
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180516122405.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
jseteary
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：379 积分：3263 威望：0 精华：0 注册：2017/10/25 22:07:00 		  发帖心情 Post By：2018/5/16 12:29:00 [只看该作者]

如何，让手机显示呢？另外怎么显示为平滑的线条呢，请指教，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/16 14:28:00 [只看该作者]

Dim Chart As New ChartBuilder '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart.PrintWidth = 140 '宽度设为140毫米
Chart.PrintHeight = 100
Chart.DataSource = "调度日报" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Chart.AxisX.DateType = True 'X轴是日期型
series.FitType = FitTypeEnum.Spline
Series.X.DataField = "选矿工序化验原始记录_时间" 'X轴绑定到产品列
Series.Y.DataField = "选矿工序化验原始记录_镜铁矿_精矿_品位" 'Y轴绑定到数量列

wb.AddPageTitle("","ph1","镜精矿品位")
wb.InsertHTML("<img width='100%' src='" & wb.ImageToBase64(Chart.Image) &  "'/>")
e.WriteString(wb.Build)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询