主题：手机图表不显示

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

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

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

如果自己不会调试，上传表个测试。

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)